1 (defun repeated (f n)
2   (if (= n 0)
3       (lambda (x) x)
4     (compose f (repeated f (1- n)))))