Evaluated proc eqn {eq {start 0} {end 50}} { set out [list]; for {set x $start} {$x < $end} {incr x} { if { [catch "expr \[string map \"X \$x\" \$eq]" ok] == 0 } { lappend out $ok } { lappend out {} } }; return $out }