[(]){( /\\)1 index 3 mod 1 getinterval print 3 idiv}([){1
count{0]]def}for}/f{{3832 168 3679 2383 213 2395 3853 169 3859
214}(%stdin)(r)file read{48 sub get f exch 5[]]exch{cvi]]]}stopped/ = def
4[]]]/ =}if}>>begin f]]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).