import System.Random (getStdGen) import Card (fullDecks, shuffle) main = do gen <- getStdGen print $ shuffle gen $ fullDecks 1