#1=(write '#1# :circle t)