(print "Argument count:" (length *args*))
(print "Arguments as a list:" *args*)

(print "Iterated:")
(let
  (index 0 current *args*)
  (while current
    (print index ":" (car current))
    (setq index (+ index 1))
    (setq current (cdr current))
    )
  )