;;;べき乗が実装されてない場合
;;;掛け算と引き算で作ると
;;;その場合、0^0 → 1 が自然だな

(define **
(lambda (a b)
(cond
((zero? b) 1)
(else
(* a (** a (- b 1)))))))