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 $+ $replace($chr($calc($asc($mid($2-,%x,1))- $1)),$chr(32),$chr(08935))
    inc %x
  }
  echo -a $replace(%y,$chr(08935),$chr(32))
}