did more in haskell