do
b=peek(0)
a$=""
if!b=10line input""a$:a$=chr$(b)+a$
if instr(a$,"d d")a$=mid$(a$,5):?a$:?a$
if"d "=left$(a$,2)a$=mid$(a$,3):?a$
?a$loop