diff --git a/parser.hs b/parser.hs
index 58f62b3..69db908 100644
--- a/parser.hs
+++ b/parser.hs
@@ -166,6 +166,7 @@ seqStmt = sepBy1 statement semi
 
 program =
 	many1 $ do
+		whiteSpace
 		e <- exprparser
 		symbol "."
 		return e