ll@n,@k,h[n]{},m=0;
n=0;
rep(i,1,10){
	ll@c;
	m|=1<<n;
	rep(j,c){
		h[n++]=i;
	}
}
m=~m;

ll d[1<<n][k]{};
d[(1<<n)-1][0]=1;
rrep(i,(1<<n)-1){
	if(!(i&~i<<1&m)){
		rep(j,n){
			ll o=i|1<<j;
			if(o!=i&&!(o&~o<<1&m)){
				rep(l,k){
					d[i][(l*10+h[j])%k]+=d[o][l];
				}
			}
		}
	}
}
wt(d[0][0]);