From a1945c9fe7d15ffa760a015de600db6b3cc65a3d Mon Sep 17 00:00:00 2001
From: Kiril <kirilstoyanov96@gmail.com>
Date: Fri, 1 Nov 2024 11:20:32 +0200
Subject: [PATCH 1/4] Create reee.adb

---
 reee.adb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 reee.adb

diff --git a/reee.adb b/reee.adb
new file mode 100644
index 0000000..3861023
--- /dev/null
+++ b/reee.adb
@@ -0,0 +1,20 @@
+with Ada.Text_IO; use Ada.Text_IO;
+with Ada.Calendar.Delays; use Ada.Calendar.Delays;
+
+procedure Main is
+
+   procedure Print_Repeat is
+   begin
+      Put_Line("r"); 
+      Flush;
+
+      loop
+         Put_Line("e"); 
+         Flush;
+         Delay_For(Duration(0.1));
+      end loop;
+   end Print_Repeat;
+
+begin
+   Print_Repeat;
+end Main;

From d630643b1d98b2de366ec86d8f573e3c296ed863 Mon Sep 17 00:00:00 2001
From: Kiril <kirilstoyanov96@gmail.com>
Date: Fri, 1 Nov 2024 11:21:45 +0200
Subject: [PATCH 2/4] Create reee.tcl

---
 reee.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 reee.tcl

diff --git a/reee.tcl b/reee.tcl
new file mode 100644
index 0000000..3ac8fac
--- /dev/null
+++ b/reee.tcl
@@ -0,0 +1,11 @@
+proc rEEEE_main {} {
+    puts "r"  ; 
+    flush stdout  ; 
+
+    while {1} {  ;
+        puts "e"  ; 
+        flush stdout  ; 
+        after 100  ; 
+    }
+}
+rEEEE_main

From e9370f291d7ae01671506e0667c3589a07d8e940 Mon Sep 17 00:00:00 2001
From: Kiril <kirilstoyanov96@gmail.com>
Date: Fri, 1 Nov 2024 11:37:24 +0200
Subject: [PATCH 3/4] Create reee.st

---
 reee.st | 2 ++
 1 file changed, 2 insertions(+)
 create mode 100644 reee.st

diff --git a/reee.st b/reee.st
new file mode 100644
index 0000000..245e93e
--- /dev/null
+++ b/reee.st
@@ -0,0 +1,2 @@
+Transcript show: 'r'; flush.
+[Transcript show: 'e'; flush.] repeat.

From d13f51143b8bc8241f57d11f7055da7c508311b5 Mon Sep 17 00:00:00 2001
From: Kiril <kirilstoyanov96@gmail.com>
Date: Fri, 1 Nov 2024 12:20:22 +0200
Subject: [PATCH 4/4] Update reee.tcl

---
 reee.tcl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/reee.tcl b/reee.tcl
index 3ac8fac..df107a6 100644
--- a/reee.tcl
+++ b/reee.tcl
@@ -1,11 +1,11 @@
 proc rEEEE_main {} {
-    puts "r"  ; 
-    flush stdout  ; 
+    puts "r"
+    flush stdout
 
-    while {1} {  ;
-        puts "e"  ; 
-        flush stdout  ; 
-        after 100  ; 
+    while {1} {
+        puts "e"
+        flush stdout
+        after 100
     }
 }
 rEEEE_main