def-hi-queen

(defmacro def-hi-queen [name phrase] ; (1)
  (list 'defn ; (2)
    (symbol name) ; (3)
    [] ; (4)
    (list 'hi-queen phrase))) ; (5)

(defmacro def-hi-queen [name phrase]
  `(defn ~(symbol name) []
    (hi-queen ~phrase)))