Формализуем торможение усреднением как отдельный приём.
(defun average-damp (h) (lambda (x) (average x (funcall h x))))
average-damp - функционал,
average-damp
(funcall (average-damp #'square) 10) 55 ; среднее 10 и 100