Enter text in the first box, and click to see it run.
set i 0 while {< &i 10} { puts "i is $i" incr &i }