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