(defun sum (L)
  (if (< (list-length (L)) 3)
        (+ (first (L)) (rest (L)))
        (+ (sum (first (L)) (sum rest(L)))))