(defmacro defnode (name)
  `(let ((x 0))
    (defun ,name()
       (format t "Hello, from Macro~%")
       (incf x)
       (format t "New X: ~a~%" x))))