# cetnost delek slov
cat $1|
awk 'BEGIN {r=0;} \
{     
   r=length($1);
   if ($2!="") ds[r]++; 
} 
END \
{ for (r in ds)
		printf "%i %i\n",r,ds[r];
}'

