(define (sum ls)
 (if (empty? ls)
  0
  (+ (first ls) (sum (rest ls)))))

(displayln (sum '(1 2 3 4 5 6 7 8 9 10)))