1:
(define (pow-iter n r c)
        (if (= c 0) r
                (pow-iter n (* n r) (- c 1))
            )
    )
(define (pow n c)
        (pow-iter n 1 c)
    )
(pow 10 2)


2:

(define (pow a n)
        (if (= n 1) a
        (* a (pow a (- n 1)))
    ))

(pow 10 2)