(define (sum-list lst)
  (if (null? lst) 0
      (+ (car lst) (sum-list (cdr lst)))))

(define (create-list n)
  (if (= n 0) '()
      (cons (read) (create-list (- n 1)))))
(display (sum-list (create-list (read))))