10{<d712cb9b1e9ddd13df1f>(%stdin)(r)file read pop 48 sub
get}repeat[([){( /\\)exch 2 index 2 mod mul 1 getinterval print 2 idiv}def 19
-1 0{dup 2 idiv{( )print}repeat 2 mod 1 eq{exch 1[2[exch count 11 ne{1[2[1[}if
pop}{2[1[2[}ifelse/ =}for 1[2[1[
Note that non-ascii characters in the above source code will be escaped (such as \x9f).