Evaluated set out ""; for {set i 0} {$i < 2000} {incr i} {append out "$i "}; . $out