while ... wend in Tcl

Please contribute to this section