var f,g:text;
    nrcuv,lungcuv:longint;
    c:char;
    q:boolean;
begin
     assign(f,'text.in'); reset(f);
     assign(g,'text.out'); rewrite(g);
     nrcuv:=0; lungcuv:=0;
     q:=false;
     while not(eof(f)) do
           begin
           read(f,c);
           if c in ['A'..'z'] then begin
                                   lungcuv:=lungcuv+1;
                                   q:=true;
                                   end
                              else if q then begin
                                             nrcuv:=nrcuv+1;
                                             q:=false;
                                             end;
           end;
     write(g,trunc(lungcuv/nrcuv));
     close(f); close(g);
end.