let rec($)c d?(e=c mod 10)n=n<2000&(c>0&(c/10$d+e*e)n;d=1&Printf.printf"%d "n=();d<5&(n+1$0)(n+1);(d$0)n);;(0$1)1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page