program txt;
var S : string;
    m,n,i:integer;
    f : text;
begin
assign(f,'text.in');
reset(f);
read(f,S);
close(f);
n := 1;
for i := 1 to length(S) do
if (S[i] = ' ') or (S[i]='-') then n := n+1;

m := length(S);
for i := 1 to length(S) do
if (S[i]=' ') or (S[i]=',') or (S[i]='-') or (S[i]='!') or (S[i]='?') then m := m-1;

assign(f,'text.out');
rewrite(f);

write(f,m div n);
close(f);

end.