reduce {
  %i = 0
  while $mid($1,%i) {
    inc %i
    var %c %b,%b %a,%a $asc($mid($1,%i)),%d %a - %b,%e $calc((%a +%c)/2),%o $+(%o,$iif($abs(%d) && %e = %b,$iif($mid(%o,-1) != -,-),$chr(%b)))
  }
  return %o
}