# redundantni slova
cat $1| \
awk ' \
BEGIN {
        i=1;
# Delka kontextu
        Poc=10;
        pozic=kolokaci=0;
      }
{
# vypreparovani lemmatu
  le=substr($2,4);
#  r=match($0,/<c>k7/);
# zn=substr($0,r+3,1);
  Sl[i]=$1; 
#  if (r!=0) Zn[i]=7; else Zn[i]=0;
  Le[i]=le; 
  pozic++;
# printf "%s %s\n", Sl[i],Zn[i];
#  if (i==1) i1=Poc;
#     	else i1=i-1;

  if (Le[i]=="normln"  || \
     Le[i]=="prost" || \
     Le[i]=="tedy" || \
     Le[i]=="pomrn" || \
     Le[i]=="tak" || \
     Le[i]=="dov" || \
     Le[i]=="zejm" )

#     vypis kontextu nalezene shody

      { kolokaci++; 
        for(l=i+1; l<=Poc ; l++)
          if (l!=i) printf "%s ",Sl[l]; 
		else printf "<<< %s ",Sl[l];	    
        for(l=1; l<i ; l++)
          if (l!=i) printf "%s ",Sl[l];
              else printf "<<< %s ",Sl[l];
        printf "%s >>>\n",Sl[i];
      };
   
 if (i<Poc) {i++;} else i=1;

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

