main :: IO ()
main = do
  a <- makeDeck
  b <- makeDeck
  putStrLn $ show a
  putStrLn $ show b
main :: IO ()
main = do
  a <- makeDeck
  b <- makeDeck
  putStrLn $ show a
  putStrLn $ show b
main = do
  a <- makeDeck
  b <- makeDeck
  putStrLn $ show a
  putStrLn $ show b