Evaluated proc 2dgetchar {a x y} { return [string index [lindex y [split $a \n]] $x]}