/a(%stdin)(r)file dup 9 string readline pop/b exch def 156 string readstring
pop def 0 1 156{/i exch def[1 -1 13 -13]{/a a 156 string copy i{b{a 2 index get
ne{e}if 2 copy 32 put 3 index add}forall pop def}stopped}forall}for a =
Note that non-ascii characters in the above source code will be escaped (such as \x9f).