Texas Hold'em in Haskell