Evaluated proc cgetchar2 {f x y} { set line [lindex [split $f \n] $y]; set cum [rempty [split $line [^C]]]; set c 0; set debug [list]; foreach chunk $cum { set info [cblock2map $chunk]; lappend debug $info; foreach letter [explode [last $info]] { if {$c == $x} {set woho "[first $info] [second $info] $letter $c $x"} {incr c}}; }; . $debug || $woho }