go dat
sw pure
de-sy c
get
go poly
s-c n(graphite,c)=1 n(diamond,c)=1 t=500
s-a-s


   n
   y
   y
c-e
l-e


set-interactive