import Cartes
import System.Random.Shuffle
import Data.Set


main :: IO ()
main = do
    donne <- shuffleM $ toList deck
    let
        taz = distribuer randomizedGame
        infiniteSteps = iterate singleStep taz
        steps = takeWhile (not . isDone) infiniteSteps
    for_ steps $ \(x,y) -> do
                    print (length x, length y)
                    putStrLn $ prettyDeck x
                    putStrLn $ prettyDeck y
                    putStrLn ""