reduce {
  %i = $1
  while %i {
    var %u $asc(%i),%i $mid(%i,2),%s %u - $asc(%i),%f %y - %s,%y %s
    if %f || $abs(%s) != 1 {
      var %o $+(%o,$iif(%r > 1,-),$chr(%u)),%r
    }
    if (%s) inc %r
  }
  return %o
}