var f,g:text;
    maxcuv,maxlit:longint;
    a:char;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
maxcuv := 0;
maxlit := 0;
while not eof(f) do begin

            while not eoln(f) do begin
                  read(f,a);
                  if ((ord(a) > 64)and(ord(a) < 91)) or
                     ((ord(a) > 96)and(ord(a) < 123)) then
                             begin

                         while  ((ord(a) > 64)and(ord(a) < 91)) or
                     ((ord(a) > 96)and(ord(a) < 123)) do begin
                                           inc(maxlit);
                                           read(f,a);
                                                         end;
                         inc(maxcuv);
                             end;
                                   end;
            readln(f);
                      end;
writeln(g,maxlit div maxcuv);
close(f); close(g);
end.