#define MD 998244353
string@s;
ll a[128]{},b=0;
for(char c:s){
	++a[c];
	++b;
}
Comb<Mint>c;
Mint y=0,z=1;
if(a['0']){
	y=c.ifac(a['0']-1);
	z=c.ifac(a['0']);
}
rep(i,1,10){
	y*=c.ifac(a[i+'0']);
	z*=c.ifac(a[i+'0']);
}
wt(z*c.fac(b)-y*c.fac(b-1));