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