Haskell calculator