Evaluated proc asc2hb_map lines { set new [list]; set out [list]; foreach cline $lines {map [split $cline [^C]] {x { set ok [asc2hb_getcs $x]; lappend new [lrepeat [second $ok] [first $ok]] }}; lappend out $new; set new [list]}; return $out }