reduce {
  bset -tc &b 1 $1
  %a = 1
  while $bvar(&b,%a) {
    var %c $replace(%c,--,-) $+ $iif($calc(($bvar(&b,$({,%a))-$v1)*($v1 -$bvar(&b,$calc(1+%a)))) = 1,-,$mid($1,%a,1))
    inc %a
  }
  return %c
}