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