alias inctext {
  if $isid && $1 !isnum {
    %x = 1
    if ($left($1,1) == z) %y = $it($v1) $+ $it($v1)
    while %x <= $len($1) {
      %y = %y $+ $chr($it($asc($mid($1,%x,1))))
      inc %x
    }
    return %y
  }
}
alias it {
  if ($1 > 64 && $1 < 90) || ($1 > 96 && $1 < 122) return $calc($1 + 1)
  if ($1 == 122 || $1 == 90) return $calc($1 - 25)
}