alias ceaser {
  set %inc 1
  while(%inc <= $len($1))
  {
    set %nieuwe $mid($1,%inc,1)
    set %nieuwe $alfabetnummer(%nieuwe)
    set %nieuwe %nieuwe + $2
    set %nieuwe $alfabetnummer(%nieuwe)
    set %woord  %woord $+ %nieuwe
    inc %inc
  }
  return %woord
  unset %inc
  unset %woord
  unset %nieuwe
}