e fsaves/temp
f/doch/t/"/u/"/i.//DOC DEST=LP23,USER=ERCM09
F/SW(1):/t/=/e0i/doch.tostring(10)
f/prompt("rem/p
k6
%c
imp11 temp/,ll
link11
temp#rel
i77perm
.stack 1000
.streams 1
.name tolp
.end
tolp23y
alist11 temp/.lp23