const m=['a'..'z','A'..'Z'];
var s:string;
    l,c:byte;
    f,g:text;
    k:char;
    ok:boolean;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
readln(f,s);
while s<>'' do begin
      ok:=false;
      while s[1] in m do begin
            ok:=true;
            inc(l);
            delete(s,1,1);
      end;
      if ok then inc(c)
            else delete(s,1,1);
end;
writeln(g,l div c);
close(g);
end.