(labels((f(c)(or(eq c #\?)(and(princ c)#0=(f(read-char))#1=(position c"([{")(princ(elt")]}"#1#))#0#))t))#0#)