(load "1_42.sch") ; for compose
(define (repeated f n)
(if (= n 1)
f
(compose f (repeated f (- n 1)))))