diff --git a/parser.hs b/parser.hs
index aaf51c9..db92c0c 100644
--- a/parser.hs
+++ b/parser.hs
@@ -47,6 +47,7 @@ listSeq p cons = do
 
 intPattern = fmap IntP integer
 varPattern = fmap VarP identifier
+listPattern = listSeq pattern ListP
 
 consPattern = do
 	x <- intPattern <|> varPattern
@@ -56,6 +57,7 @@ consPattern = do
 
 pattern = option UnitP $
 			try consPattern
+		<|> listPattern
 	    <|> varPattern
 	    <|> intPattern