#!/usr/bin/tclsh
while { true } {
    puts -nonewline "e"                                                                                        
}