#!/usr/local/bin/sbcl --script

(defun greet (name)
  `(hello ,name))

(defmacro greet (expr)
  `(pprint (macroexpand-1 ',expr)))