diff --git a/e.tcl b/e.tcl
new file mode 100755
index 0000000..6293a07
--- /dev/null
+++ b/e.tcl
@@ -0,0 +1,4 @@
+#!/usr/bin/tclsh
+while { true } {
+    puts -nonewline "e"                                                                                        
+}