char s[9];i,j,k;main(f){for(i=strlen(gets(s))-1;f&&--i;)for(j=0;f&&s[i+j];j++)for(k=0;j+k