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
 }