diff --git a/src/yacc/parser.y b/src/yacc/parser.y
index 4eeec7c..0ab5ea6 100644
--- a/src/yacc/parser.y
+++ b/src/yacc/parser.y
@@ -90,6 +90,7 @@ statementlist: statement statementlist
 statement: assign
         | decl
         | definition
+        | while
         | branch
         | funcall;
 
@@ -103,6 +104,8 @@ branchelseifs: branchelseifs branchelseif
 branch: branchif branchelseifs
     | branchif branchelseifs branchelse;
 
+while: KeyWhile expr '{' statementlist '}' { DEBUG("while"); };
+
 identlist: Ident ',' identlist
         | Ident;