ll@n,@m,E[n];Mint a=1,s;REP[E](e,Factor(m,E+n,E)){vectorx(e+1,1),y;y=x;rep(n)s=0,y[0..e]=(s+=x[e-(0..)]),x=y;a*=x[e];}wt(a);