var s:string;
    i,nr,nr1:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(s);
  nr:=0;
  nr1:=0;
  for i:=1 to length(s) do begin
    if ((s[i]<>' ')and(s[i]<>'-')and(s[i]<>',')and(s[i]<>'.')and(s[i]<>'!')and(s[i]<>'?')) then nr1:=nr1+1;
    if ((s[i]=' ')or(s[i]=',')or(s[i]='-'))and((s[i+1]<>' ')and(s[i+1]<>',')) then nr:=nr+1;
    end;
writeln(trunc(nr1/nr));
close(input); close(output);
end.