Evaluated proc kr {a b} {set out ""; for {set i $a} {$i <= $b} {incr i} {append out [k $i]\n}; . $out }