# pocet samostatnych nefunkcnich slov
cat $1| \
awk ' \
BEGIN {
	poc=0; sam=0; uvn=0;
      }
{
# vypreparovani znacek
 c=$2;
 d=$1;
 p=match(c,/\>/);
 le=substr(c,p+1);
 if (d=="," || d==".") 
  { if (uvn==1)  sam++;
    uvn=0;   	        
  };

  if (le=="bt" || le=="mt" || le=="dlat")
	uvn++;
 le="";
 poc++;
# printf "%s %i %c  \n",c,p,zn;
}
END { 
      printf "%i \n", sam;
    }
'

