diff --git a/e.cbl b/e.cbl
new file mode 100644
index 0000000..4c4fe46
--- /dev/null
+++ b/e.cbl
@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+    PROGRAM-ID. eeeeeeeee.
+       
+DATA DIVISION.
+    WORKING-STORAGE SECTION. 
+       01 e PIC X VALUE 0.
+       
+PROCEDURE DIVISION.
+    MAIN-PROCEDURE.
+        PERFORM UNTIL e > e  
+            DISPLAY 'e'
+        END-PERFORM.
+    STOP RUN.
+