#257 For loop in tcl

Example:

for {set i 0} {$i < 100} {incr i} {
  puts $i
}