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