anarchy golf - the source code

duplicate certain lines _C_ by pooq

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).