var t:text;
    s:string;
    nr,i,lungime:integer;
const lit=['a'..'z','A'..'Z'];
begin
assign (t,'text.in');
reset (t);
read (t,s);
close (t);
lungime:=length(s);
for i:=1 to length(s) do
if not(s[i] in lit) then lungime:=lungime-1;
for i:=1 to length(s) do
if s[i] in lit then
begin
while s[i] in lit do
i:=i+1;
nr:=nr+1;
end;
assign (t,'text.out');
rewrite (t);
write (t,lungime div nr);
close (t);
end.