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

(define (normalize value)
  (if (>= value 1) (normalize (* value 0.1)) value )
)