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