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