(let loop ((N (read)) (sum 0))
  (if (zero? N ) (print sum)
  (loop (- N 1) (+ sum (read)))))