(define sum (lambda (lst) (if lst (+ (car lst) (sum (cdr lst))) 0)))