program Pbtext;
var f,g:text; nr,nr1:integer; s:char; cuv:string;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
nr:=0; nr1:=0;
while not eof(f) do
 begin
read(f,s);



 cuv:='';
 while ((s<'a') or (s>'z')) and ((s<'A') or (s>'Z')) and (not eof(f))
  do read(f,s);

 while (((s>='a') and (s<='z')) or ((s>='A') and (s<='Z'))) and(not eof(f))
  do begin
     nr:=nr+1;
   if length(cuv)<255 then   cuv:=cuv+s;
     read(f,s);
     end;

  if cuv<>'' then nr1:=nr1+1;


end;
if nr1=0 then writeln(g,'0') else
writeln(g,nr div nr1);
close(f);close(g);

end.