/t{3 copy pop gt{3 copy 2{127 mul add}repeat dup where{exch get}{3{4 1 roll 3 2
roll 2 index 5 sub 3 copy pop t}repeat 6 4 roll t 5 4 roll 1 index def}ifelse
exch pop}if exch pop exch pop}def[.runstdin]{count 3 eq{t =}if}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).