Evaluated proc asc2hb_map lines { set new [list]; map [split [first $lines] [^C]] {x { set ok [asc2hb_getcs $x]; }} }