(use srfi-42)

(define (main args)
    (let* ((n (read)) (xs (list-ec (: i n) (read))))
        (begin
            (display (apply + xs))
            (newline))))