1 (defun horner-eval (x coeffs)
2   (accumulate
3    (lambda (this-coeff higher-terms)
4      (+ (* x higher-terms) this-coeff))
5    0
6    coeffs))