while ... wend in Tcl
Please contribute to this section
Don't be silly.
while {some_expression_is_true} { do stuff }
Thats it.