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