(define a (read)) (define (readn n) (if (= n 0) '() (cons (read) (readn (- n 1)) ) )) (print (apply + (readn a)))