# cetnost delek vet
cat $1|
awk 'BEGIN {delvety=0;dv5=dv10=dv15=dv20=0; pocvet=0; } \
{     
     if ($1=="." || $1=="!" || $1=="?")
        {
          if ( delvety!=0 )
          { 
          if ( delvety<5 ) dv5++ ; else
           if ( delvety<10 ) dv10++ ; else
            if ( delvety<15 ) dv15++ ; else 
              if ( delvety<20 ) dv20++ ; else dv25++;
          
          dv[delvety]++ ;
          delvety=0;
          pocvet++;
          } 
        } 
      else
#       if ($1!="," && $1!="-" && $1!="\"" && $1!=":" && $1!=" " ) 
        if ($2!="") 
			{   
                            delvety++ ; }
} 
END \
{
   
 printf "Do5  %i %f\n",dv5,dv5/pocvet;
 printf "Do10 %i %f\n",dv10,dv10/pocvet;
 printf "Do15 %i %f\n",dv15,dv15/pocvet;
 printf "Do20 %i %f\n",dv20,dv20/pocvet;
 printf "Po20 %i %f\n",dv25,dv25/pocvet;
 printf "pocvet  %i\n",pocvet

 
# for (delvety in dv)
#		printf "%i %i\n",delvety,dv[delvety];
}'

