def s r,d
f=->a,n{[n*Math.sin(a),n*Math.cos(a)]}
s=d*6
p=[]
s.times{|k|p<<" "*s}
c=s/2
p[c][c]=?*
r.times{|a|d.times{|l|x,y=f[6.28/r*a,d*l]
p[c+x.round][c+y.round]=?*}}
p.map{|j|puts j}
end
 
# Test cases
 
while i = gets
 a, b = i.scan(/\d+/).map(&:to_i)
 s a, b
end
 
 

ZGVmIHMgcixkCmY9LT5hLG57W24qTWF0aC5zaW4oYSksbipNYXRoLmNvcyhhKV19CnM9ZCo2CnA9W10Kcy50aW1lc3t8a3xwPDwiICIqc30KYz1zLzIKcFtjXVtjXT0/KgpyLnRpbWVze3xhfGQudGltZXN7fGx8eCx5PWZbNi4yOC9yKmEsZCpsXQpwW2MreC5yb3VuZF1bYyt5LnJvdW5kXT0/Kn19CnAubWFwe3xqfHB1dHMgan0KZW5kCgojIFRlc3QgY2FzZXMKCndoaWxlIGkgPSBnZXRzCiAgYSwgYiA9IGkuc2NhbigvXGQrLykubWFwKCY6dG9faSkKICBzIGEsIGIKZW5kCgo=

MywyCjMsMwo0LDIKNCwzCjUsMgo1LDMKNiwzCjYsMgo2LDQ=

3,2 3,3 4,2 4,3 5,2 5,3 6,3 6,2 6,4