var r,x,y:comp;s:string;begin
read(r);for y:=-r to r do
begin
s:='';for x:=-r to r do
s:=s+copy("* ",ord(x*x+y*y>r*r)+1,1);writeln(s)end
end.