program gaju;
var f,g:text;
    t:string;{97..122;65..90}
    ok:boolean;
    i,nr,s:integer;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g);
readln(f,t);
nr:=0;s:=0;
for i:=1 to length(t) do begin
    if ((ord(t[i])>=97)and(ord(t[i])<=122))or
       ((ord(t[i])>=65)and(ord(t[i])<=90))then begin
              if ok=false then nr:=nr+1;
              ok:=true;
              s:=s+1;
              end
       else ok:=false;
end;
if nr>0 then writeln(g,s div nr)
        else writeln(g,'0');
close(f);close(g);
end.