open System let sum (N: int64) = let rec loop (N: int64) (ans: int64) = if N <= (int64 0) then ans else loop (N-1L) (ans + (Console.ReadLine() |> int64)) loop N 0L let N = Console.ReadLine() |> int64 printfn "%d" (sum N)