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 ))