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