{"body":"COMMON-LISP-USER> (defparameter tree '#2=(#1=(a) (b c a #1# #2#) . #2#))\n(setf *print-circle* t)\n\nTREE\nCOMMON-LISP-USER> \nT\nCOMMON-LISP-USER> (print-identified-conses tree)\n#3=(#1=(#2=A . ()) . ((B . (C . (#2#  . (#1#  . (#3#  . ()))))) . #3# ))\n#1=#1#\nCOMMON-LISP-USER> ","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/RV75koPe","modified":1532906277,"id":"RV75koPe","size":271,"lines":10,"own_paste":false,"theme":"","date":1532906277}