diff --git a/programs/bardemo.tri b/programs/bardemo.tri
index 4e792cc..f730f74 100644
--- a/programs/bardemo.tri
+++ b/programs/bardemo.tri
@@ -9,7 +9,11 @@ in
         b := 2;
         
         putint(a);
+	puteol();
         putint(b);
+        puteol();
         putint(|a);
-        putint(|b)
-    end
\ No newline at end of file
+        puteol();
+        putint(|b);
+        puteol()
+    end
diff --git a/programs/while-longloop.tri b/programs/while-longloop.tri
new file mode 100644
index 0000000..75b1088
--- /dev/null
+++ b/programs/while-longloop.tri
@@ -0,0 +1,22 @@
+let
+  var a : Integer;
+  var b : Integer;
+  var c : Integer
+in
+begin
+  put('1');
+  puteol();
+  a := 0;
+  while a < 5000 do
+  begin
+    b := 0;
+    while b < 3000 do
+    begin
+      c := c + a;
+      c := c / (1 + b);
+      b := b + 1;
+    end;
+    a := a + 1;
+  end;
+  putint(c);
+end