(let ((extra "little"))
  (format t "Mary had a ~A lamb.~%" extra))