program lll;
var
  nc,lc,n,i:longint;
  f,g:text;
  c:char;
  begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
nc:=0;lc:=0;
i:=1;
while not eof(f) do
 begin
 read(f,c);
 while not (c  in ['A'..'Z','a'..'z']) do
  begin  i:=i+1;read(f,c); end;
  while  c  in ['A'..'Z','a'..'z'] do
  begin  i:=i+1;read(f,c) ;lc:=lc+1;end;
 nc:=nc+1;
 end;
write(g,trunc(lc/nc));
close(f);close(g);
end.