RosettaCodeData/Task/Command-line-arguments/Emacs-Lisp/command-line-arguments.el

(while argv
  (message "Argument: %S" (pop argv)))