program ttext;
type cuv = set of char;
var c:cuv;
i:char;
str:array [1..maxint] of char;
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;
b:=1;
while not eoln(f) do begin
 read(f,i);
 str[b]:=i;
 if str[b] in c then
  nrl:=nrl+1
 else if b <> 1 then
  if str[b-1] in c then
  nrc:=nrc+1;
b:=b+1;
end;
s:= nrl div nrc;
writeln(g,s);
close(f);close(g);
end.