(display 
 (let ([n (read)])
   (let loop ([i 0] [s 0])
     (if (= i n)
	 s
	 (loop (+ i 1) (+ s (read)))))))
(newline)