p return $iif($mid(%a,$calc($pos(%a,$1) $2 1),1),$v1,$1)
reduce {
  if $len($1) > 2 {
    %a = abcdefghijklmnopqrstuvwxyz
    %b = 0
    %e =
    %z =
    while %b < $len($1) {
      inc %b
      %c = $mid($1,%b,1)
      %d = $right(%z,1)
      if %c = %d {
        %z = %z $+ %c
      }
      else {
        :1
        if $p(%c,+) = %d || $p(%c,-) = %d {
          %d = %c
          inc %b
          if $mid($1,$calc(%b -2),1) = $mid($1,%b,1) {
            %z = %z $+ - $+ %c
          }
          %c = $mid($1,%b,1)
          inc %e
          goto 1
        }
        else {
          if %e > 1 {
            %z = %z $+ - $+ %d
            %e =
          }
          %z = %z $+ $iif(%e > 1,%d) $+ %c
        }
      }
    }
    if $right(%z,1) = - {
      %z = %z $+ $right($1,1)
    }
    return %z
  }
  return $1