1 1 195{dup{0{10 mul 1 index 10 mod add exch 10 idiv exch 1 index 0 eq{add 2
copy eq{exit}if add dup 0}if}loop}stopped{200023188 8813 count 191 eq{836886388
8}if =only}if =}for