var i,j,n:comp;begin read(n);for i:=-n to n do for j:=-n to n do write(("* ")[ord(i*i+j*j>n*n)+1],^j:ord(j=n))end.