Evaluated proc cgetchar2 {f x y} { set line [lindex [split $f \n] $y]; split $line [^C] }