shell loop refactor
shell loop refactor
tcl loop refactor