-- |Fractional part of a number
fract :: RealFrac a => a -> a
fract x
  = x - fromIntegral (floor x :: Int)
fract :: RealFrac a => a -> a
fract x
  = x - fromIntegral (floor x :: Int)
fract x
  = x - fromIntegral (floor x :: Int)