Evaluated proc thingidkyet {eq {start 0} {end 50}} { set out [list]; for {set x $start} {$x < $end} {incr x} { lappend out [eval "expr $eq"] }; return $out }