totient function by rst76

main=mapM print[sum[1|a<-[1..n],gcd n a<2]|n<-[10^4..10300]]

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

download

return top