open Num#load"nums.cma"let rec($)i l=i=0&read_int()$Int 1;i=1&()=print_endline(string_of_num l);i-1$l*/Int i//(Int i%l)and(%)m n=match mod_num m n with Int 0->n|r->n%r;;0$Int 1