var lit:set of char;
    S:String;
    ma,nrc,nrt,i:Integer;
    f,g:Text;
Begin
lit:=['a'..'z','A'..'Z'];
Assign(f,'text.in');reset(f);
Assign(g,'text.out');rewrite(g);
readln(f,S);
i:=1;
while i<=length(S) do
  begin
  if S[i] in lit then
    inc(nrt)
  else
    if S[i+1] in lit then
      inc(nrc);
  inc(i);
  end;
ma:=nrt DIV nrc;
writeln(g,ma);
close(f);
close(g);
end.