program inf;
var f,g:Text;
    s,s1:String;
    n1,n2:integer; x:char;
begin
    assign (f,'text.in'); reset (f);
    assign (g,'text.out'); rewrite (g);
    n1:=0; n2:=-1;

     s1:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
       read (f,x);
    while not seekeof(f) do
        begin

           while pos(x,s1)<>0 do
               begin

                    n1:=n1+1;
                       read (f,x);
               end;
           while pos(x,s1)=0 do
              begin

                  if seekeof(f) then
                     break;
                     read (f,x);

              end;
              n2:=n2+1;

        end;
    writeln (g,n1 div n2);
    close (f); close (g);
end.