let(!),x=string_of_int,read_int()let rec($)i j=let rec(@)m k s=m>x&(i+j$j+1;()=print_endline s)||(m+k@k+1)(s^" "^ !m)in i<x&(i+j+1@j+2)!i;;1$1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page