ll@A[6],S[1d6]{},B=10;REP(a,1d6)S[sum[j,0,6](sum[i,0,6](A[i]/B**j*(a/B**i))%B*B**j)]=1;wt(sum[t,0,1d6](S[t]));