(defun list-sum (lst)
(reduce #'+ lst))

(defun list-square (lst)
(reduce #'(lambda (a b) (+ a (* b b))) lst
:initial-value 0))