alias inctext {
  if ($1 isletter) {
    var %x = $len($1), %f, %a = s | while (%x) {
      var %l = $mid($1,%x,1), %o = $iif(%a && %l != z,+1,-25), %f = $iif(%a,$chr($calc($asc(%l) %o)),%l) $+ %f, %a = $iif(%l = z && %a,s)
      dec %x
    }
    return $iif(%a,$chr($calc($asc(%l) %o))) $+ %f
  }
}