(define list-sum
  (lambda (liste)
    (if (= (length liste) 0)
        0
        (+ (first liste) (list-sum (rest liste))))))