diff --git a/while/Makefile b/while/Makefile
new file mode 100644
index 0000000..e8b76e5
--- /dev/null
+++ b/while/Makefile
@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m While.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym
diff --git a/while/While.Mod b/while/While.Mod
new file mode 100644
index 0000000..6f4b324
--- /dev/null
+++ b/while/While.Mod
@@ -0,0 +1,17 @@
+MODULE while;
+
+IMPORT Out;
+
+
+VAR
+	i : INTEGER;
+
+
+BEGIN
+	i := 0;
+	Out.String("WHILE loop started"); Out.Ln;
+	WHILE i < 10 DO
+		i := i + 1;
+		Out.Int(i, 0); Out.Ln;
+	END;
+END while.