(define (power b n) (cond ((= n 0) 1) ((even? n) (power (square b) (/ n 2)) (else (* b (power b (- n 1))))))