;; sbcl --script reee.lisp
(defun e ()
  (format t "e"))

(defmacro r (e e e e e e e e e)
  `(progn
     (format t "r")
     (loop
	(,e))))

(r e e e e e e e e e)