Calculator in haskell