(define (power-close-to b n)
  (define (iter e)
    (if (> (expt b e) n)
        e
        (iter (+ e 1))))
  (iter 0))