(load "1_42.sch")  ; for compose

(define (repeated f n)
  (if (= n 1)
      f
      (compose f (repeated f (- n 1)))))