1/a[.runstdin]def/b{{a exch get dup 3 index ge{pop exit}if 9 add 2 index lt
or}for exch}def a{false 2 index 1 a length 1 sub b false 3 index 2 sub -1 0 b
=only and{(*)print}if()= 1 add}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).