var s : ansistring;
    k,l,i : longint;
begin
    assign(input,'text.in'); reset(input);
    assign(output,'text.out'); rewrite(output);
    readln(S);
    for i:=1 to length(S) do if S[i] in ['A'..'Z','a'..'z'] then l:=l+1;
    for i:=1 to length(S)-1 do begin
                        if (S[i]=' ') and (S[i+1]<>'-') then k:=k+1;
                        if (S[i]='-') and (S[i+1]<>' ') then k:=k+1;
                             end;
    writeln(l div k);
    close(input); close(output);
end.