ll@a,@b,D[2d3];wt(sum[i,0,Divisor(a,D)](D[i]%b?0:1));