E1:     C1 CALL pred interpreter.main/2-0 (det) interpreter.m:48
mdb> echo on
Command echo enabled.
mdb> context none
Contexts will not be printed.
mdb> register --quiet
mdb> b consult_file
 0: + stop  interface pred interpreter.consult_file/5-0 (det)
mdb> c
Pure Prolog Interpreter.

      E2:     C2 CALL pred interpreter.consult_file/5-0 (det)
mdb> delete 0
 0: E stop  interface pred interpreter.consult_file/5-0 (det)
mdb> vars
        1 File (arg 1)
        2 STATE_VARIABLE_Database_0 (arg 2)
mdb> print *
       File (arg 1)           	"interpreter.m"
       STATE_VARIABLE_Database_0 (arg 2)	[]
mdb> b database_assert_clause
 0: + stop  interface pred interpreter.database_assert_clause/4-0 (det)
mdb> c
Consulting file `interpreter.m'...
      E3:     C3 CALL pred interpreter.database_assert_clause/4-0 (det)
mdb> delete 0
 0: E stop  interface pred interpreter.database_assert_clause/4-0 (det)
mdb> finish
      E4:     C3 EXIT pred interpreter.database_assert_clause/4-0 (det)
mdb> print *
       VarSet (arg 1)         	varset(var_supply(0), empty, empty)
       Term (arg 2)           	functor(atom(":-"), [functor(atom/1, [|]/2, context/2)], context("interpreter.m", 28))
       Database (arg 3)       	[]
       HeadVar__4             	[clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2))]
mdb> finish -a
This command is a no-op from this port.
mdb> print *
       VarSet (arg 1)         	varset(var_supply(0), empty, empty)
       Term (arg 2)           	functor(atom(":-"), [functor(atom/1, [|]/2, context/2)], context("interpreter.m", 28))
       Database (arg 3)       	[]
       HeadVar__4             	[clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2))]
mdb> 
      E5:     C4 CALL pred interpreter.consult_until_eof/5-0 (det)
mdb> finish -n
      E6:     C4 EXIT pred interpreter.consult_until_eof/5-0 (det)
mdb> 
      E7:     C5 EXIT pred interpreter.consult_until_eof/5-0 (det)
mdb> finish 1
      E8:     C2 EXIT pred interpreter.consult_file/5-0 (det)
mdb> continue
?-