For loop in TCL

for {set i 0 } {$i<5} {incr i } {

> puts "welcome $i"

> }

o/p :

welcome 0

welcome 1

welcome 2

welcome 3

welcome 4