(define compose
  (lambda (f g)
    (lambda (x)
      (f (g x)))))

(define n-times
  (lambda (f n)
    (if (= n 1)
        f
        (compose f (n-times f (- n 1))))))