alias encrypt {
  set %a 1
  set %b $1-
  while (%a < 12) {
    if ($right(%a,1) == 2) || ($right(%a,1) == 4) || ($right(%a,1) == 6) || ($right(%a,1) == 8) || ($right(%a,1) == 0) {
      set %b $encode(%b)
      inc %a 1
    }
    elseif ($right(%a,1) == 1) || ($right(%a,1) == 3) || ($right(%a,1) == 5) || ($right(%a,1) == 7) || ($right(%a,1) == 9) {
      set %b $encode(%b,m)
      inc %a 1
    }
    else { echo -a error %a | inc %a 1 }
  }
  if (%a == 12) {
    echo -a Your Encryption for $1- becomes: %b
  }
}