bit more haskell work