# opakovani slov o stejne lemmatu
cat $1| \
awk ' \
BEGIN {
        i=1;
#       specifikace delky kontextu pro opakovani
        Poc=30;
        pozic=opakovani=0;
      }
{
# vypreparovani lemmatu
 c=$2;
 p=match(c,/\>/);
 r=match($3,/\>/);
 le=substr(c,p+1);
 zn=substr($3,r+2,1);
#  printf "%s ",$1;
 Op[i]=le; 
 Or[i]=$1;
 pozic++;
 if (zn=="1" || zn=="2" || zn=="6" )
  for (j=1; j<=Poc; j++ )
   {
   if (i!=j && Op[i]==Op[j] && Op[i]!=""  )
#             printf" !!! \n";
#     vypis kontextu nalezene shody
      { opakovani++; 
        for(l=i+1; l<=Poc ; l++)
          if (l!=j) printf "%s ",Or[l]; 
		else printf "<<< %s >>> ",Or[l];	    
        for(l=1; l<i ; l++)
          if (l!=j) printf "%s ",Or[l];
              else printf "<<< %s >>> ",Or[l];
        printf "<<< %s >>>\n",Or[i];
        j=Poc+1;  
      };
   } 
#      printf"%s %s %i\n",$1,Op[i],i-j;
 if (i<Poc) {i++;} else i=1;

}
END {
     printf "Celkovy pocet pozic    : %i\n", pozic;
     printf "Celkovy pocet opakovani: %i %f\n", opakovani, opakovani/pozic;
    }
'

