# cetnost slovnich druhu
cat $1| \
awk ' \
BEGIN {
	poc=0;
      }
{
# vypreparovani znacek
 c=$3;
 p=match(c,/\>/);
 zn=substr(c,p+2,1); 
# ve zn je 0 az 9 dle slovniho druhu
 cet[zn]++;
 poc++;
# printf "%s %i %c  \n",c,p,zn;
}
END { 
   for ( i in cet )
     {
#        if (i="") printf "ble \n" 
#	else	
 { printf "k%c %i %f \n", i , cet[i] , cet[i]/poc} ;
     }
    }
'

