open Num#load"nums.cma"let rec($)i n=i>99&()=print_string(string_of_num n)||i+1$mod_num(n**/Int 10)(Int 10**/Int 1000);;0$Int 2