Tcl - Useful Commands : While

http://wiki.tcl.tk/1046

while - Execute script repeatedly as long as a condition is met

while test body

 set x 0
 while {$x<10} {
    puts "x is $x"
    incr x
 }

TCL: How to end program and close the program window

In order for the application to end and the window to close when running a Tcl script from the command line an