Evaluated proc cblock2map c {set r [regexp -inline {(\d+)*(,(\d+))*(.+)$} $c]; list [second $r] [fourth $r] [last $r]}