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