The party classic, in Haskell