path: root/Main.hs

import System.Random (getStdGen)
import Card (fullDecks, showCard, shuffle)

main = do
    gen <- getStdGen
    print $ map showCard $ shuffle gen $ fullDecks 2