n=max(a<-scan("stdin"));for(i in 0:99)write(det(diag(n)[a[1:n+n*i],]),1)