SICP 1.43

#lang scheme
(define (compose f g)
  (lambda(x)(f(g x))))
(define (inc x)
  (+ x 1))
(define (square x)
  (* x x))
(define (repeated term n )
  (if(> n 0)
     (compose (repeated term (- n 1)) term)
     (lambda(x) x )))

或

(define (repeated term n )
  (if(> n 1)
     (compose (repeated term (- n 1)) term)
     term ))