# cetnosti a pomer type/token slov
cat $1| \
awk ' \
BEGIN {
        poc=0;ruz=0;
      }
{

 if ($2!="") 
     { sl[$1]++; poc++;}



}
END {
      for (a in sl) 
       {
#         printf "%s %i %f\n",a,sl[a],sl[a]/poc;
         ruz++;
       }
      printf "Pomer type/token na slovech  %f\n",poc/ruz;
    }
'

