read*,n;do i=1,n;j=i**(1-i/n);print'(99a1)',(32,k=2,n-j),(42,k=2,j*2);enddo;end