# nefunkcni slova
cat $1| \
awk ' \
BEGIN {
	poc=0;
      }
{
# vypreparovani znacek
 c=$2;
 p=match(c,/\>/);
 le=substr(c,p+1); 
 if (le=="bt" || le=="mt" || le=="dlat")
	cenef[le]++;
 poc++;
# printf "%s %i %c  \n",c,p,zn;
}
END { 
   for ( i in cenef )
     {
      printf "%s %i %f \n", i , cenef[i] , cenef[i]/poc >"'$1'.nef";
     }
    }
'

