While loop for TCL

Until i becomes 11 the loop continue to puts $i

set i 1

while {$i < 11} {

    puts "i = $i"

    incr i

}

Output

i = 1

i = 2

i = 3

i = 4

i = 5

i = 6

i = 7

i = 8

i = 9

i = 10