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