(use srfi-42)

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