Evaluated proc setchar {str i c} {set ok [explode $str]; join [lreplace $ok $i $i $c] {}}