var f:text;c:char;l,k:longint;z:boolean;

begin
 assign(f,'text.in');reset(f);
 while not eof(f) do
  begin
   read(f,c);
   if(c in ['a'..'z'])or(c in ['A'..'Z'])then
    begin
     if not z then begin inc(k);z:=true;end;
     inc(l);
    end
     else z:=false;
  end;
 close(f);assign(f,'text.out');rewrite(f);write(f,trunc(l/k));close(f);
end.