(define sum (lambda (lst) (if (null? lst) 0 (+ (car lst) (sum (cdr lst)))))) (define sum-of-first (lambda (n) (if (= n 0) 0 (+ n (sum-of-first (- n 1))))))