# type/token ratio lemmat 500
cat $1| \
awk ' \
BEGIN {
        poc=blok=ruz=sum=0;
        printf "%s",par;
      }
{
 c=$2;
 p=match(c,/\>/);
 le=substr(c,p+1);
 
 if ($2!="") 
     { sl[le]++; poc++;}
 if (poc>500) 
  {
    for (a in sl)
       {
         ruz++; delete sl[a]
       }
    blok++;
    printf "Blok: %i Ttr: %f \n",blok,  poc/ruz;
    sum=sum+(poc/ruz);
    poc=ruz=0;    
  }



}
END {
     printf "Index opakovani nad fixni delkou 500: %f \n",sum/blok;
    }
'

