program text11;
var f,g:text;
    l,d:longint;
    a,y:char;
    {c:set of 'A'..'z';       }
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
while not eof(f) do
                 begin
                 read(f,a);
                 if (ord(a)>=65) and (ord(a)<=127) then
                           begin
                           l:=l+1;
                                  end
                           else
                           if (ord(y)>=65) and (ord(y)<=127) then
                                      d:=d+1;
                 y:=a;
                 end;
d:=d+1;
writeln(g,trunc(l/d));
close(f); close(g);
end.