     (println (add x y))
     (println (add-m 1 2))
     (println (add-m-2 1 2))
+    (println (add-m-3 1 2))
 
     ;; Does not compile: cannot add symbols (explain this)
     ;; (println (add-m x y))

  [a b]
  `(+ ~a ~b))

(defn test-add
  []
  (let [x 1

    (defmacro x2 [] 2)
    ;; (println (add-m (x1) (x2)))
    (println (add-m-2 (x1) (x2)))
    (println (add-m-3 (x1) (x2)))
    ))


