ll@n,@k,h[n]{},f=1;
n=0;
rep(i,1,10){
	ll@c;
	rep(j,c){
		h[n++]=i;
		f*=j+1;
	}
}

ll d[1<<n][k]{};
d[0][0]=1;
rep(i,1,1<<n){
	rep(j,n){
		if(i&1<<j){
			rep(l,k){
				d[i][(l*10+h[j])%k]+=d[i^1<<j][l];
			}
		}
	}
}
wt(d[(1<<n)-1][0]/f);