[.runstdin]{count 3 eq{3 1 roll dup 2 le{12 add exch 1 sub exch}if 13 mul 8 add
5 idiv 1 index 4 idiv dup 25 idiv dup 4 idiv sub sub add add add 7 mod
=}if}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).