sub f{
	if(length==8){
		$z+=$_%$k==0;
	}else{
		for$i(1..8){
			if(!/$i/){
				$_.=$i;
				&f;
				chop;
			}
		}
	}
}
$k=<>;
f;
print$z;