#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