(define pow
    (lambda (x n)
      (letrec ([visit (lambda (n)
                        (if (zero? n)
                            1
                            (* x (pow x (- n 1)))))])
        (visit n))))