program p1;
var f,g:text;
cuv,s:string;
i,c,nr,nr2:word;
m:set of char;
gasit:boolean;
begin
m:=[];
nr:=0;
nr2:=0;
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
readln(f,s);
for i:=65 to 90 do
m:=m+[chr(i)];
for i:=97 to 122 do
m:=m+[chr(i)];
for i:=1 to length(s) do
if s[i] in m then
nr:=nr+1;
i:=1;
gasit:=false;
while (gasit=false) and (i<=length(s)) do
if not(s[i] in m) then
i:=i+1
else
begin
gasit:=true;
c:=i;
end;
i:=c;
while i<=length(s) do
begin
cuv:='';
while(i<=length(s)) and (s[i] in m) do
begin
cuv:=cuv+s[i];
i:=i+1;
end;
nr2:=nr2+1;
while (i<=length(s)) and (not(s[i] in m)) do
i:=i+1;
end;
c:=trunc(nr/nr2);
write(g,c);
close(f);
close(g);
end.