proc rEEEE_main {} { puts "r" flush stdout while {1} { puts "e" flush stdout after 100 } } rEEEE_main