do
e=peek(0)
if e<0 end
a$="":if e-10line input""a$:a$=chr$(e)+a$
c=1:while("d "=left$(a$,2))c=c+1:a$=mid$(a$,3)wend
for i=1to c?a$next
loop