ll@N,@P[N],Q[4][2N]{};rep(r,3)rep(i,N)Q[r+1][P[i]]|=Q[r][i+1]^r<2;wt(sum[i,1,N+1](Q[3][i]));