reduce {
  %s = $1.
  while (%s) var %a %b,%b %2 - $asc(%s),%r $replace(%r $+ $iif(%a = %b && %a isin -1,-,$chr(%2)),--,-),%2 $asc(%s),%s $mid(%s,2)
  return %r
}