defun СУМА_ДОБУТОК (x)
(list
(РЕДУКЦИЯ x #'* 1)
(РЕДУКЦИЯ x #'+ 0)
))

(defun РЕДУКЦИЯ (x g a)
(reduce g x :initial-value a)
)

(СУМА_ДОБУТОК '(2 3))