let summate (n : int) : int = let rec loop (i : int) (acc : int) : int = if i = n+1 then acc else loop (i+1) (acc+i) in loop 0 0 ;; print_endline (string_of_int (summate 100000000));;