alias Code {
  var %x = 1
  while (%x <= $len($2-)) {
    var %y = %y $+ $chr($calc($asc($mid($2-,%x,1))+ $1))
    inc %x
  }
  msg $active %y
}
alias Decode {
  var %x = 1
  while (%x <= $len($2-)) {
    var %y = %y $+ $chr($calc($asc($mid($2-,%x,1))- $1))
    inc %x
  }
  echo -a %y
}