(define ans 0) (define n (read)) (let loop((i n)) (set! ans (+ ans (read))) (if (> i 1) (loop (- i 1)))) (display ans) (newline)