open Num#load"nums.cma"let rec($)i x=i=0&()=print_endline(string_of_num x);i<1&read_int()$x//x;i-1$Int i*/x;;-1$Int 1