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

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

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


(greet(123))