Initial commit

tests/testlevel4/level4testcarre.vsl

@@ -0,0 +1,28 @@
+FUNC VOID main()
+{ INT n,i,s
+ 
+  n := 5
+  s := 0
+  i := n
+
+  WHILE i
+  DO
+    { s := s + i*i 
+      i := i - 1 
+    }
+  DONE
+
+  PRINT "\n"
+
+  i := n
+  WHILE i-1
+  DO
+    { PRINT i, "^2 + "
+      i := i - 1
+    } 
+  DONE
+
+  PRINT "1^2 = ", s, "\n"
+
+}
+