tcl loop refactor