Evaluated proc cgc_line line { for {set i 0} {$i < [string length $line]} {incr i} { set char [string index $line $i]; } }