var s:string;
    i,nr,nr1:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(s);
  nrcuvinte:=0;
  nrcaractere:=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]<>'!')and(s[i]<>'?')) then nrcaractere:=nrcaractere+1;

    if ((s[i]=' ')or(s[i]=',')or(s[i]='-')or(s[i])='"')and((s[i+1]<>' ')and(s[i+1]<>',')) then nrcuvinte:=nrcuvinte+1;
    end;
writeln(trunc(nr1/nr));
close(input); close(output);
end.