Evaluated proc asc2hb_map lines { map [split [first $lines] [^C]] {x {}} }