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