open Num#load"nums.cma"#load"str.cma"let(+)x f=f x;;while 1=1do read_line()+Str.split(Str.regexp", ")+List.map num_of_string+List.fold_left( */)(Int 1)+string_of_num+Printf.printf"%s\n"done