#1=(progn (setq *print-circle* t) (write '#1#))