べき乗関数を返す関数power
(define power
	(lambda (n)
		(lambda (x)
			(if (= n 1)
			    x
			    (* x ((power (- n 1)) x))))))


> power
#<procedure:power>
> (power 2)
#<procedure>
> ((power 2) 5)
25