module Prelude(Real(..)) where

import Ratio((%))

instance  Real Float where
    toRational x = case decodeFloat x of (m,n) -> (m%1)*(bf%1)^^n
			where bf     = floatRadix  x