input""r:for x=-r to r:for y=-r to r?chr$(32+10*!x*x+y*y>r*r);next:?next