Evaluated proc 2dsetchar {a x y} { set out [split $a \n]; set new [lindex $out $y]  }