(use gauche.generator)

(define (solve)
    (let* ((n (read)) (xs (gtake read n)))
        (print (generator-fold + 0 xs))))

(solve)