s[]=1
s(c:r)|any(<c)r=0|1<3=s r
main=getLine>>=print.s>>main