totient function by yshl

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 top