[Haskell-cafe] How to round off frational number?