Evaluated proc 2dsetchar {f e x y} { set out [split $f \n]; set new [string replace [lindex $out $y] $x $x $e]; lreplace $out $y $y $new}