(define (sum-list lst)
  (define (sum-listx lst ans)
    (if (null? lst) ans
        (sum-listx (cdr lst) (+ ans (car lst)))))
  (sum-listx lst 0))
(define (create-list n)
  (if (= n 0) '()
      (cons (read) (create-list (- n 1)))))
(display (sum-list (create-list (read))))