task 6 in progress!

programs/checkstats.tri

@@ -2,17 +2,11 @@ let
     var a : Integer;
     var b : Integer;
     var c : Integer;
-
     var x : Char;
     var y : Char
 in
     {
-        a := 1;
-        b := 2;
-        a**;
-
+        a := 1; b := 2; a**;
         b := 100;
-
-        x := 'A';
-        y := 'Z';
+        x := 'A'; y := 'Z';
     }

programs/loopwhile.tri

@@ -0,0 +1,16 @@
+! print out ababababa
+
+let
+  var a : Integer
+in
+begin
+  a := 0;
+  loop
+  begin
+    put('a');
+    a := a + 1;
+  end
+  while a < 5 do
+  	put('b');
+  
+end