to circle2 :rad
arc2 360 :rad
end

bury "circle2