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


(setf 'a "abc")
 (format t "~a" (list 'a))