Predicate cont;
a1 = engine.aregs[1];
a2 = engine.aregs[2];
cont = engine.cont;
// '$prolog_file_name'(A,A):-['$get_level'(B),sub_atom(A,C,D,E,'.'),'$greater_than'(E,0),'$cut'(B)]
if (! a1.unify(a2, engine.trail))
return engine.fail();
a3 = new VariableTerm(engine);
//START inline expansion of $get_level(a(3))
if (! a3.unify(new IntegerTerm(engine.B0), engine.trail)) {
return engine.fail();