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