(defun sum (ls)
(if (eq ls nil) 0
(let (( (a . as) ls))
(+ a (sum as)))))
(check (= (sum (list 1 2 3 4 5 6 7 8 9 10)) 55))