working on haskell 51