char S[2d4];mint d[3d4],e[3d4],z;ll M,i,c;{rd(S,M);for(;S[i];){c=S[i++]-48;e[((0..M)*10+c)%M]+=d[0..];(c?e[c%M]:z)+=1;d[0..M]=e[0..];}wt(*d+z);}