var
 F:file of char;
 c:char;
 i:longint;
 pn:boolean;
 s:string;
begin
 i:=0;
 pn:=false;
 write('enter file name: '); readln(s);
 assign(f,s);
 reset(F);
 While not eof(f) do begin
  read(f,c);
  if c='.' then begin
   if pn=true then inc(i);
   pn:=false;
  end else if c<>' ' then pn:=true;
 end;
 writeln(i);
 readln;
end.