(use srfi-42)

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