[.runstdin]{[1]exch -1 1{{/n exch def[0 2 index{n mul add dup 10 mod exch 10 idiv}forall dup 0 eq{pop]exit}if]1}loop}for aload length{=only}repeat()=}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page