SICP 练习1.43 repeated

(define (compose f g)  (lambda (x) (f (g x))))(define (repeated f times)  (if (= times 1)    f    (compose f (repeated f (- times 1)))))(define (square x)  (* x x))((repeated square 2) 5)