# cetnost delek vet
cat $1|
awk 'BEGIN {delvety=0;} \
{     
     if ($1=="." || $1=="!" || $1=="?")
       { if (delvety!=0)
                    { dv[delvety]++ ; delvety=0 ; };
       } 
      else

#       if ($1!="," && $1!="-" && $1!="\"" && $1!=":" ) 

	 if ($2!="") delvety++ ; 
} 
END \
{ for (delvety in dv)
		printf "%i %i\n",delvety,dv[delvety];
}'

