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