#           1         2         3         4         5         6
# 01234567890123456789012345678901234567890123456789012345678901234567890
sub demerphq{
  @0=sort{$a<=>$b}@_;$_=":@0";1 while s/:((\d+)(-(\d+))?) (\d+)/
  $5-$2-1&&$5-$4-1?"$1,:$5":":$2-$5"/e;y/://d;$_
}