char s[];b;l;main(x){for(b=l=strlen(gets(s));b--;)for(x=-1;x++