at mt1 Obj_To_Tape.mt1
at mt3 foo.mt3
at cdr  Obj_To_Tape.o
at cdp foo.cdp
b mt1
q