/f{2 index length 1 sub -1 0{exch 3 copy pop get 16 mod add 3 index 2 index get
16 mod add 3 copy 10 mod 48 or put 10 idiv exch pop}for}def 100{(%stdin)(r)file
110 string readline{dup dup length 1 sub get 32 eq{0 1 index length 1 sub
getinterval}if( + )search pop(.)search pop 4 index(.)search pop 2 index 6 index
2 copy length exch length lt{exch}if 0 f 6 index 4 index 2 copy length exch
length gt{exch}if 2 copy length exch length sub neg string exch concatstrings 2
index f 1 eq{(1)print}if print(.)print def =}if}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).