reduce {
  %x = $len($1)
  %y = $null
  %z = %x
  while %x {
    %y = %y $asc($mid($1,%x,1))
    dec %x
  }
  %x = %z
  while %x {
    :1
    if ($gettok(%y,%x,32) == $calc($gettok(%y,$calc(%x - 1),32) + 1)) { 
      inc %k | dec %x | goto 1 
    }
    else {
      if %k > 1 {
        dec %k
        while %k {
          %t = $calc(%x + %k)
          %y = $instok($deltok(%y,%t,32),1,%t,32)
          dec %k
        }
      }
      %k = 0
      dec %x
    }
  }
  %x = %z
  while %x {
    :2
    if ($gettok(%y,%x,32) == $calc($gettok(%y,$calc(%x - 1),32) - 1)) { 
      inc %k | dec %x | goto 2
    }
    else {
      if %k > 1 {
        dec %k
        while %k {
          %t = $calc(%x + %k)
          %y = $instok($deltok(%y,%t,32),1,%t,32)
          dec %k
        }
      }
      %k = 0
      dec %x
    }
  }
  %x = $null
  while %z {
    %x = %x $+ $chr($gettok(%y,%z,32))
    dec %z
  }
  clipboard $replace(%x,$chr(1),$chr(32))
  return $replace($cb,$chr(32),-)
}