diff --git a/CardParser.hs b/CardParser.hs
index b8d35b3..b9deb2e 100644
--- a/CardParser.hs
+++ b/CardParser.hs
@@ -27,6 +27,10 @@ test_scheme = unlines $ [ "A Display of My Dark Power"
                         , "ARC-C"
                         ]
 
+card_list :: Parser [Card]
+card_list = sepBy card $ string "\n\n"
+
+
 card :: Parser Card
 card = do
     name' <- line