alias alphaencode {
  if ($2 == $null || $1 !isnum) {
    :error
    return 4ERROR.
    halt
  }
  var %a 1
  var %q 17
  var %w 23
  var %r 18
  var %t 20
  var %p 16
  var %s 19
  var %d 4
  var %f 6
  var %g 7
  var %h 8
  var %j 10
  var %k 11
  var %l 12
  var %z 26
  var %x 24
  var %c 3
  var %v 22
  var %b 2
  var %n 14
  var %m 13
  var %e 5
  var %o 15
  var %u 21
  var %i 9
  var %y 25
  var %1 a
  var %2 b
  var %3 c
  var %4 d
  var %5 e
  var %6 f
  var %7 g
  var %8 h
  var %9 i
  var %10 j
  var %11 k
  var %12 l
  var %13 m
  var %14 n
  var %15 o
  var %16 p
  var %17 q
  var %18 r
  var %19 s
  var %20 t
  var %21 u
  var %22 v
  var %23 w
  var %24 x
  var %25 y
  var %26 z
  var %coded $replace($2-,a,$calc(%a + $1),b,$calc(%b + $1),c,$calc(%c + $1),d,$calc(%d + $1),e,$calc(%e + $1),f,$calc(%f + $1),g,$calc(%g + $1),h,$calc(%h + $1),i,$calc(%i + $1),j,$calc(%j + $1),k,$calc(%k + $1),l,$calc(%l + $1),m,$calc(%m + $1),n,$calc(%n + $1),o,$calc(%o + $1),p,$calc(%p + $1),q,$calc(%q + $1),r,$calc(%r + $1),s,$calc(%s + $1),t,$calc(%t + $1),u,$calc(%u + $1),v,$calc(%v + $1),w,$calc(%w + $1),x,$calc(%x + $1),y,$calc(%y + $1),z,$calc(%z + $1))
  var %done $replace(%coded,26,%26,25,%25,24,%24,23,%23,22,%22,21,%21,20,%20,19,%19,18,%18,17,%17,16,%16,15,%15,14,%14,13,%13,12,%12,11,%11,10,%10,9,%9,8,%8,7,%7,6,%6,5,%5,4,%4,3,%3,2,%2,1,%1)
  return %done
}
alias alphadecode {
  if ($2 == $null || $1 !isnum) {
    :error
    return 4ERROR.
    halt
  }
  var %a 1
  var %q 17
  var %w 23
  var %r 18
  var %t 20
  var %p 16
  var %s 19
  var %d 4
  var %f 6
  var %g 7
  var %h 8
  var %j 10
  var %k 11
  var %l 12
  var %z 26
  var %x 24
  var %c 3
  var %v 22
  var %b 2
  var %n 14
  var %m 13
  var %e 5
  var %o 15
  var %u 21
  var %i 9
  var %y 25
  var %1 a
  var %2 b
  var %3 c
  var %4 d
  var %5 e
  var %6 f
  var %7 g
  var %8 h
  var %9 i
  var %10 j
  var %11 k
  var %12 l
  var %13 m
  var %14 n
  var %15 o
  var %16 p
  var %17 q
  var %18 r
  var %19 s
  var %20 t
  var %21 u
  var %22 v
  var %23 w
  var %24 x
  var %25 y
  var %26 z
  var %coded $replace($2-,a,$calc(%a - $1),b,$calc(%b - $1),c,$calc(%c - $1),d,$calc(%d - $1),e,$calc(%e - $1),f,$calc(%f - $1),g,$calc(%g - $1),h,$calc(%h - $1),i,$calc(%i - $1),j,$calc(%j - $1),k,$calc(%k - $1),l,$calc(%l - $1),m,$calc(%m - $1),n,$calc(%n - $1),o,$calc(%o - $1),p,$calc(%p - $1),q,$calc(%q - $1),r,$calc(%r - $1),s,$calc(%s - $1),t,$calc(%t - $1),u,$calc(%u - $1),v,$calc(%v - $1),w,$calc(%w - $1),x,$calc(%x - $1),y,$calc(%y - $1),z,$calc(%z - $1))
  var %done $replace(%coded,26,%26,25,%25,24,%24,23,%23,22,%22,21,%21,20,%20,19,%19,18,%18,17,%17,16,%16,15,%15,14,%14,13,%13,12,%12,11,%11,10,%10,9,%9,8,%8,7,%7,6,%6,5,%5,4,%4,3,%3,2,%2,1,%1)
  return %done
}