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