const litera:set of char=['A'..'Z', 'a'..'z'];
var c:char;
    k,  k1, i:longint;
    s:ansistring;
begin  assign(input, 'text.in');
       assign(output, 'text.out');
       reset(input); rewrite(output);
       readln(s);
       For i:=1 to length(s)-1 do begin if s[i] in litera then inc(k);
                                        if (s[i+1] in litera) and not(s[i] in litera) then inc(k1);
                                  end;
       writeln(trunc(k/k1));
       close(input); close(output);
end.