For Loop Using Tcl