for {set $i 1} [expr $i < 10 ] {incr i} {
puts $i
}