$>.sync=m="\0";j=0;eval$<.read.tr(x='^[]+><,.-',"").gsub(/./){%w{while\ m[\ j]>0 end m[j]+=1 (j+=1)>=m.size&&m<<0 j-=1 m[j]=STDIN.getc||0 putc\ m[j] m[j]-=1}[x.index($&)-1]+";"}#esoteric@irc.freenode.net Jannis Harder 2005#
