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