#!/usr/local/bin/sbcl --script
#1=(progn 
     (setq *print-circle* t) (write '#1#))