let rec(@)i s=s^if i=11then"print v1,v2,v3,v4,v5,v6,v7,v8,v9,v10 "else Printf.sprintf"for v%d = %d to 9 "i(1/i)^(i+1@s^" ")^s^"next ";;print_string(1@"")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page