Poker - Haskell | SlaveCode