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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page