R=range
S=input()
L=len(S)
p=1024
D=[[0]*p for l in R(L)]
D[0][0]=1
P=998244353
for l in R(1,L):
	for s in R(p):
		for d in R(10):t=s^1<<d;D[l][t]=(D[l][t]+D[l-1][s])%P
a=sum(D[l][0]-D[l-1][1]for l in R(1,L))
t=0
for i in R(L):
	c=ord(S[i])-48
	for d in R(i<1,c):a+=D[L-1-i][t^1<<d]
	t^=1<<c
print((a+(t<1))%P)