ll@N,@M,n=N/3;modint D[n+1]{1};D->setmod(M);REP(i,1,n+1)D[i]=sum[j,0,i](D[j]*sum[k,j,i](D[k-j]*D[i-1-k]));wt(N%3?0:N=D[n]);