var f,g:text;
    a,s:char;
    len,nr:integer;
const d=['a'..'z','A'..'Z'];
procedure citire(var l,nr:integer);
var ok:boolean;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,a);
len:=0;
nr:=0;ok:=false;
while not eof(f) do begin
read(f,a);
if a in d then
   if ok then inc(len)
         else begin ok:=true;
                    inc(len);
                    inc(nr);end
         else ok:=false;
end;
end;

begin
citire(len,nr);
write(g,len div nr);
close(g);
end.