Evaluated proc cgetchar2 {f x y} { set line [lindex [split $f \n] $y]; set cum [rempty [split $line [^C]]]; set c 0; foreach chunk $cum {set info [cblock2map $chunk]; foreach letter [explode [last $info]]; } }