alias reduce { var %r $left($1,1),%x 2
while (%x < $len($1-)) { var %p $asc($mid($1,$calc(%x -1),1)),%c $asc($mid($1,%x,1)),%n $asc($mid($1-,$calc(%x +1),1)),%r %r $+ $iif(%p = %c || $calc(%c - %p) != $calc(%n - %c),$chr(%c),$iif($right(%r,1) != -,-)) 
inc %x } 
return $+(%r,$iif($remove($calc($asc($right($1,1)) - $asc(Right(%r,1))),-) = 1,-),$iif($len($1) > 1,$right($1,1))) }