uses crt;
var s:string;
    nr,c,i:integer;
    f,g:text;
function litera(x:char):boolean;
 begin
 if ((x>='a')and(x<='z'))or((x>='A')and(x<='Z')) then litera:=true
     else litera:=false;
 end;
begin
clrscr;
assign(f,'text.in');
reset(f);
readln(f,s);
close(f);
nr:=0;c:=0;
for i:=1 to length(s) do
    begin
    if litera(s[i]) then inc(nr);
    if (litera(s[i-1])=false)and(litera(s[i])=true) then inc(c);
    end;
assign(g,'text.out');
rewrite(g);
write(g,nr div c);
close(g);
end.