for {set i 0 } {$i<5} {incr i } {
> puts "welcome $i"
> }
o/p :
welcome 0
welcome 1
welcome 2
welcome 3
welcome 4