main=interact$f.map read.words f[a,b]=do i<-[-1e-6..2*b-1];([1/2..a+a*sin(2*pi*i/b)]>>" ")++"*\n"