let rec($)n i=n>i*10&n$i*10;Printf.printf"%d
"n;n-i$n/n;;read_int()$1