var f, g : text;
    a, b : char;
    k, l : longint;
begin
  assign(f,'text.in');
   reset(f);
  Assign(g,'text.out');
   rewrite(g);
   read(f,a);
   if a in ['A'..'Z', 'a'..'z'] then      begin
     k:=1;               l:=1;                  end;
    While not eof(f) do
    begin
           Read(f,b);
            if  b in ['A'..'Z', 'a'..'z']  then
                inc(l);
            if (not (a in ['A'..'Z', 'a'..'z'])) and (b in ['A'..'Z', 'a'..'z']) then
             inc(k);
           a:=b;
     end;
    Write(g, l div k);
close(g);
end.