[.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