/s(%stdin)(r)file 165 string readstring pop def
s 1 get 35 eq{4 121}{s 8 get 35 eq{2 66}{1 132}ifelse}ifelse/n exch def
0 1 43{/i exch def s i get 35 eq{s i 32 put s i n add 35 put}if}for{( )=}repeat
0 11 164{s exch 10 getinterval dup(##########)ne{=}if}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).