ll@P,@Q,D[2d6],N[],L=Divisor(Q*Q,D),T=0;rep[D](d,L)(d+Q)%P+(Q*Q/d+Q)%P?0:N[T++]=(d+Q)/P;wt(T);rep(t,T)wt(N[t],N[T+~t]);