Haskell decimal arithmetic