alias ddc {
var %a
!.echo -q $&
$regsub($1,/((?:[]|(?:\d\d?(?:\x2C\d\d?)?)?)+|\s)?/g,\1,%a) $&
$regsub(%a,/((?:[]|(?:\d\d?(?:\x2C\d\d?)?)?)+|\s)?/g,\1,%a) $&
$regsub(%a,/((?:[]|(?:\d\d?(?:\x2C\d\d?)?)?)+|\s)?/g,\1,%a) $&
$regsub(%a,/(?:(?:\d\d?(?:\x2C\d\d?)?)?)+(\s*(?:\d\d?(?:\x2C\d\d?)?)?)/g,\1,%a) $&
$regsub(%a,/(\d[^]*[^\d][^]*)(?=\D|$)/g,\1,%a) $&
$regsub(%a,/(?<=(\d\d\x2C\d\d))([^]+)\1/g,\2,%a) $&
$regsub(%a,/(?<=(\d\d\x2C\d))([^\d]+[^]*)\1(?!\d)/g,\2,%a) $&
$regsub(%a,/(?<=(\d\x2C\d\d))([^]+)\1/g,\2,%a) $&
$regsub(%a,/(?<=(\d\x2C\d))([^\d]+[^]*)\1(?!\d)/g,\2,%a) $&
$regsub(%a,/(?<=(\d\d))([^]+)\1/g,\2,%a) $&
$regsub(%a,/(?<=(\d))([^\d]+[^]*)\1(?!\d)/g,\2,%a)
;!.echo -q $regsub(%a, /(?<=:(\d\d(?:\x2C\d\d)?)([^]*))\1/g,\1\2,%a);ignore
if $regex(%a,/(\d)/) { %a = $remove($left(%a,$calc($regml(1).pos - 1)),) $+ $mid(%a,$regml(1).pos) }
else %a = $remove(%a,)
return %a
}