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