decodeFloat

decodeFloat :: RealFloat a => a -> (Integer, Int)
base Prelude