Evaluated proc cblock2map c {regexp -inline {^(0*[0-9])(,(0*[0-9]))*(.+?)$} $c}