let rec($)x?(z=x/10)y=y<9999&z=0&()=Printf.printf"%d
"y;z mod 10>x-z*10&z$y;y+1$y+1;;0$10