10000 1 10300{dup dup 2 1 4 index{([)exch def dup[mod 0 eq{exch dup[idiv sub
exch}if{dup[mod 0 ne{exit}if[idiv}loop}for pop =}for