let rec($)x i=Printf.printf"%9d * 9 +%3d = 1%d "x i(x/10*9+i-1);i<10&x*10+i$i+1;;1$2

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page