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

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

(define (normalize n mult)
  (cond 
   ((>= n 1) (normalize (* n 0.1) (* mult 10)))
   ((<= n 0.1) (normalize (* n 10) (* mult 0.1)))
   (else n)))