(define (loop lis sum-so-far) (cond ((null? lis) sum-so-far) (else (loop (cdr lis) (+ sum-so-far (car lis))))))