Evaluated proc asc2hb_map lines { set new [list]; set out [list]; foreach cline $lines {map [split $cline [^C]] {x { if {$x != ""} { lappend new "{[asc2hb_getcs $x]}" } }}; lappend out [chunk [flatten $new] 2]; set new [list]}; return $out }