1 665c255d 2023-08-04 jrmu (defun product (term a next b)
2 665c255d 2023-08-04 jrmu   (if (> a b)
3 665c255d 2023-08-04 jrmu       1
4 665c255d 2023-08-04 jrmu     (* (funcall term a)
5 665c255d 2023-08-04 jrmu        (product term (funcall next a) next b))))