procedure main()
while a:=read()do{t:=0
every t+:=!map(a,&digits,1000001021)
write(t)}
end