This is the Scheme process buffer.
Type C-x C-e to evaluate the expression before point.
Type C-c C-c to abort evaluation.
Type M-x describe-mode for more information.

Scheme Microcode Version 11.146
MIT Scheme running under SunOS

Scheme saved on Sunday November 21, 1993 at 9:15:23 PM
  Release 7.3.0 (beta)
  Microcode 11.146
  Runtime 14.166

(define (compose f n)
  (lambda (x)
    (if (> n 1)
      ((compose f (- n 1)) (f x))
      (f x))))
;Value: compose

(define (compose f n)
  (define (compose-iter n ff)
    (if (> n 1)
        (compose-iter (- n 1) (lambda (x) (f (ff x))))
        ff))
  (compose-iter n f))
;Value: compose

((compose sqrt 1) 256)
;Value: 16

((compose sqrt 2) 256)
;Value: 4

((compose sqrt 3) 256)
;Value: 2

((compose sqrt 4) 256)
;Value: 1.4142135623730951