var c :char;
    k,l,i : longint;
begin
    assign(input,'text.in'); reset(input);
    assign(output,'text.out'); rewrite(output);
    i:=1;
while not eof(input) do begin
    read(c);
    if (ord(c)>=65) and (ord(c)<=90) then l:=l+1;
    if (ord(c)>=97) and (ord(c)<=122) then l:=l+1;
    if (c='-') and (i<>1) then k:=k+1;
    if (i=1) and (c<>' ') and (c<>'-') then k:=k+1;
    if c=' ' then k:=k+1;
    i:=i+1;
    if c='.' then i:=1;


                      end;




    writeln(l div k);
    close(input); close(output);
end.