1701 string 50{(%stdin)(r)file dup read{dup 73 idiv sub 20 mul exch token pop add 2 copy 1 put}if pop}repeat 99 1 1680{2 copy get 1 xor 1 index 20 mod mul 0[1 -1 20 -20]{3 index add 4 index exch get add}forall mul{( )dup 0 3 index 20 idiv dup 73 idiv add put print 20 mod =[exit}repeat pop}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).