pull r
do x=-r to r
a=copies("*",r*2+1)
do y=-r to r
a=overlay(" ",a,r+y+1,x*x+y*y>r*r)
end
say a
end