let rec($)i?(x=read_int())s=x<i*2&2$1=Printf.printf"%d: %d
"x(x+s);($)~x(i+1)(s+x/i*i/x*i);;2$1