int@n,@k,@a[n],d[k],z=0;
rep_scomb(d,k,n){
	ll s=sum[ll][i,0,k](a[d[i]]);
	z+=s%998244353<=s%998;
}
wt(z%998);