(defun sum (lst)
(apply #'+ lst))

(defun square (n)
(* n n))

(defun sum-square (lst)
(sum (mapcar #'square lst)))