g/%?*$/s\\$ libr/extr=(&)/outp=t.o rlib.olb@n$ appe t.o NAME.cob@n$ delete t.o.*\
1s/t.o/NAME.cob/
2,3d
1i
$ set verify
$ delete NAME.cob.*
.
w
q