#load"nums.cma"open Num let rec(^)n a=n>0&n-1^a*/Int n;read_int(print_endline(string_of_num a))^a//a;;read_int()^Int 1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page