better haskell for one