(define + -)

(define sum
  (lambda (lst)
    (if (null? (cdr lst))
        (car lst)
        (+ (car lst) (sum (cdr lst))))))