for(b=[(i=j,c=0)for(j in a=readline())];~i;c=b[i]