(defmacro q ()
  `(print 'hello))

(defmacro e ()
  `(setf x 10))

(defmacro w ()
  `(progn
     (let ((x 5))
       (q)
       (e)
       x)))

;(defun r ()
; '((y 10) (z 15)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;woot!!!!!!!!!!!!
(defmacro hey (q)
  `(list '(y ,q) '(z 15)))

(defmacro uhoh (&optional (body (hey w)))
  `(let ((x 10)
	 ,body)))

;(defmacro fred (args &body body)
 ;  (let ((x (gensym))
  ;   `(let ((,x 10))
	;,@body))))

(defmacro ted (&body body)
  `(append '(1 2 3) ,@body))

(defmacro yed (v)
  `(let ((body (hey ,v)))
     (let ((x 10)
	   body))
     (append '(1 2 3) body)))
;;;;;;;;;;;;;;;;is woot still a thing?;;;;;;;;;;;;;;;