to circle :diameter
repeat 90 [forward :diameter / 29 right 4]
end