/Reduce {
  if ($2) {
    var %a abcdefghijklmnopqrstuvwxyz
    $iif($pos(%a,$2,1) == $calc($pos(%a,$1,1) +1),return -)
    $iif($pos(%a,$2,1) == $calc($pos(%a,$1,1) -1),return ")
  }
  else {
    return $remove($regsubex($regsubex($regsubex($left($1,1) $+ $regsubex($1,/(.)/g,$iif($reduce(\1,$iif(\2,$v1,2)),$v1,:) \2),/(-.[^:"]+-)/g,-),/([a-z]-)/g,: \1),/(".[^:]+")/g,-),$chr(32),:,")
  }
}