#lang racket

(define sumList
  (lambda (L)
    (if (null? L)
        0
        (+ (car L)
           (sumList
            (cdr L)))
        )))

(sumList '(1 2 3 4))