shorter haskell