[/c{concatstrings}58{dup}33{pop}126{exch}42{c}83{print}97{(\))c(\()exch c}94{/r
exch r c def}/r(%stdin)(r)file 99 string readline pop>>begin{{r 0 get dup 40
eq{pop r token pop exch/r exch def}{/r r 1 r length 1 sub getinterval def load
exec}ifelse}loop}stopped