[Haskell-cafe] Problems with truncate big float values in Haskell