(let ((name "format-string")
      (use "templated strings")
      (how-many "as many as you want"))

  #`${name} is a package implementing ${use} as a reader macro.
You can insert one, two, or ${how-many} variables into a string so that it's
arguably more readable than a format string in some circumstances.`)

; => "format-string is a package implementing templated strings as a reader macro.
; You can insert one, two, or as many as you want variables into a string so that it's
; arguably more readable than a format string in some circumstances."

(named-readtables:in-readtable format-string:syntax)

(defvar potato-type "yukon")

(defvar exclamation #`I love ${potato-type} potatoes!`)

(set-dispatch-macro-character #\# #\` #'format-string:parse-format-string)