var
s,s1: string;
lcuv,stot,ct,nrcuv: integer;
f,g: text;
ok: boolean;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
readln(f,s);
close(f);
ok:=false;
ct:=1;      nrcuv:=0;   stot:=0;   ok:=false;     s1:=s;
while ct<>length(s) do
    begin
       if ((s1[ct]<='z') and (s1[ct]>='a')) or ((s1[ct]<='Z') and (s1[ct]>='A'))
                        then begin
                               inc(lcuv);
                               inc(stot);
                              end
              else if (s1[ct]<'a') or (s1[ct]>'Z') or ((s1[ct]>'z') and (s1[ct]<'A')) then
                          if ((s1[ct+1]<='z') and (s1[ct+1]>='a')) or ((s1[ct+1]<='Z') and (s1[ct+1]>='A'))
                                  then inc(nrcuv);
     lcuv:=0;
     inc(ct);
     end;
write(g,trunc(stot/nrcuv-1));
close(g);
end.