(define normalize (n)
  (if (> n 1) (normalize (/ n 10)) n))