1 665c255d 2023-08-04 jrmu (defun repeated (f n)
2 665c255d 2023-08-04 jrmu   (if (= n 0)
3 665c255d 2023-08-04 jrmu       (lambda (x) x)
4 665c255d 2023-08-04 jrmu     (compose f (repeated f (1- n)))))