Evaluated proc cgetchar3 {f x y} {set line [lindex [nl split $f] $y]; foreach letter [explode $line] {}; }