[Haskell-cafe] round function