anarchy golf - the source code

paren matching by pooq

do 300
a=charin()
b=pos(a,"({[")
if b>0 then push word(") } ]",b)
if ?=a then pull a
call charout,a
end

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