reduce {
  %l = 26
  while %l > 2 {
    %i = 1
    while $mid(abcdefghijklmnopqrstuvwxyzåzyxwvutsrqponmlkjihgfedcbaå,%i,%l) {
      tokenize 1 $replace($1,$v1,$+($left($v1,1),-,$right($v1,1)))
      inc %i
    }
    dec %l  
  }
  return $1
}