input""r
for x=-r to r
for y=-r to r?mid$("* ",(x*x+y*y>r*r)+1,1);next
?next