; powers of 3

(define (power-of? m n)
  (if (zero? (modulo n m))
      (power-of? m (/ n m))
      (= n 1)))

(display (power-of? 3 27)) (newline)
(display (power-of? 3 36)) (newline)