for {set i 1} {$i < 10} {incr i} {
puts "$i"
}