SICP 問題1.42

合成関数を実装する手続きcompose

(define (compose f g)
  (lambda (x)
    (f (g x))))

gosh> ((compose square inc) 6)
49