($n,$k)=glob<>;
@a=glob<>;
$d[0][0]=1;
for(@a){
	for$j(-9..0){
		for$i(0..1023){
			if(!($i&$_)){
				($d[-$j+1][$i|$_]+=$d[-$j][$i])%=998244353;
			}
		}
	}
}
for$i(0..1023){
	($s+=$d[$k][$i])%=998244353;
}
print $s;