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