sub list2range {
  local $_ = join ',' => @_;
  s/(\w+)(?:,((??{''.++(my$x=$+)})))+/$1-$+/g;
  return $_;
}