# cetnost slovnich druhu
cat $1| \
awk ' \
BEGIN {
	poc=0; #pocet znamych slov
	pocall=0; #pocetvsech
      }
{
# vypreparovani znacek
 c=$3;
 p=match(c,/\>/);
 zn=substr(c,p+2,1); 
# ve zn je 0 az 9 dle slovniho druhu

 if (zn!="") poc++; 
 cet[zn]++;
 pocall++; 
# printf "%s %i %c  \n",c,p,zn;
}
END { 
   printf "kW %i %f \n", cet[""] , cet[""]/pocall ;
   printf "k1 %i %f \n", cet[1] , cet[1]/poc ;
   printf "k2 %i %f \n", cet[2] , cet[2]/poc ;
   printf "k3 %i %f \n", cet[3] , cet[3]/poc ;
   printf "k4 %i %f \n", cet[4] , cet[4]/poc ;
   printf "k5 %i %f \n", cet[5] , cet[5]/poc ;
   printf "k6 %i %f \n", cet[6] , cet[6]/poc ;
   printf "k7 %i %f \n", cet[7] , cet[7]/poc ;
   printf "k8 %i %f \n", cet[8] , cet[8]/poc ;
   printf "k9 %i %f \n", cet[9] , cet[9]/poc ;
   printf "k0 %i %f \n", cet[0] , cet[0]/poc ;
   printf "kX %i %f \n", cet["X"] , cet["X"]/poc ;
# tuna je problem, esli pocitat nesmysly a zkratky do celkoveho poctu
# zatim zkratky jo, zbytek ne





#   for ( i in cet )
#     {
#        if (i="") printf "ble \n" 
#	else	
# { printf "k%c %i %f \n", i , cet[i] , cet[i]/poc} ;
#     }
    }
'

