significand

significand :: RealFloat a => a -> a
base Prelude