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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page