$ @usr:[sharon.com]c.com 'p1'
$ if p2 .eqs. "" then exit
$ lib/repl 'p2' 'p1'
$ del 'p1'.obj.0
$ exit