program ttext;
type cuv = set of char;
var c,l:cuv;
i:char;
str:string;
nrl,nrc,s: longint;
f,g: text;
b:byte;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);rewrite(g);
for i:='A' to 'Z' do begin
 c:= c + [i];
end;
for i:='a' to 'z' do begin
 c:= c + [i];
end;
readln(f,str);
for b:=1 to length(str) do begin
 if str[b] in c then
  nrl:=nrl+1;
 else if str[b-1] in c then
  nrc:=nrc+1;
end;
s:= nrl div nrc;
writeln(g,s);
close(f);close(g);
end.