texas hold'em in haskell