let rec read () =
  try let n = read_int () in
      let rec get_area a = function
          i when i > n -> a
        | i -> get_area (a+i) (i+1)
      in Printf.printf "%d\n" (get_area 2 2)
        ;read ()
  with End_of_file -> ()
;;

let () = read ();;