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