added some code in haskell