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


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