procedure main()
while a:=read()do{n:=0;every n+:=*find(!a,68890);write(n)}
end