Poker Hand in Haskell