# syntagma
cat $1| \
awk ' \
BEGIN {
        i=1;
# Delka kontextu
        Poc=15;
        pozic=kolokaci=0;
      }
{
# vypreparovani lemmatu
  le=substr($2,4);
  r=match($0,/c>k/);
  zn=substr($0,r+3,1);
  Sl[i]=$1; 
  Zn[i]=zn;
  Le[i]=le; 
  pozic++;
#  printf "%s %s\n", Sl[i],Le[i];
  if (i==1) { i1=Poc; i2=Poc-1;}
   else 
    if (i==2) {i1=1; i2=Poc;}
     else {i1=i-1; i2=i-2;}
  if (Zn[i]=="2" && Zn[i1]=="6" && Zn[i2]=="5" \
       && Le[i2]!="bt"  && Le[i2]!="nebt")

#     vypis kontextu nalezene shody

      { kolokaci++; 
        for(l=i+1; l<=Poc ; l++)
          if (l!=i2) printf "%s ",Sl[l]; 
		else printf "<<< %s ",Sl[l];	    
        for(l=1; l<i ; l++)
          if (l!=i2) printf "%s ",Sl[l];
              else printf "<<< %s ",Sl[l];
        printf "%s >>>\n",Sl[i];
      };
   
#      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 syntagmat: %i %f\n", kolokaci, kolokaci/pozic;
    }
'

