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