#!/usr/local/bin/sbcl --script
#1=(progn 
     (setq *print-circle* t)
     (format t "O que se passa aqui?")
     (write '#1#))