reduce {
  %i =
  :%c
  inc %i
  var %c $asc($mid($1,%i)),%s %s $+ $iif($calc((%c -%l)^-9999+3) & $v1,-,$chr(%l)),%l %c
  goto %c )
  :)
  return $deltok(%s,,45)
}