pointless haskell code