main=mapM print$filter((==1).f.f.f.f.f.f)[1..2000] f 0=0 f x=f(x`div`10)+(x`mod`10)^2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page