M=998244353;d=[0]*10;n=1<<18
F=[s:=1]+[s:=s*-~i%M for i in range(n)]
I=([s:=pow(s,-1,M)]+[s:=s*i%M for i in range(n,0,-1)])[::-1]
for i in input():d[int(i)]+=1
r=0;s=F[sum(d)-1]
for i in range(1,10):
    if d[i]<1:continue
    c=s
    for j in range(10):c*=I[d[j]-(j==i)]
    r+=c%M
print(r%M)