totient function by flagitious

a=*0..$$
eval'#'+a*';a[j]-=a[i]while a[j+=i]
p a[i]if 1e4<=j=i='

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top