(use gauche.generator)

(define (solve)
    (let* ((n (read)) (xs (gtake read n)))
        (print (apply + (generator->list xs)))))

(solve)