reduce {
  var %r $1,%z abcdefghijklmnopqrstuvwxyz
  :o
  var %x 1,%y 26
  while %x < 25 {
    while ???* iswm $mid(%z,%x,%y) {
      %r = $replace(%r,$v2,$+($left($v2,1),-,$right($v2,1))) 
      dec %y
    }
    %y = 26 - %x
    inc %x
  }
  if a* iswm %z {
    %z = zyxwvutsrqponmlkjihgfedcba
    goto o
  }
  return %r
}