var s:char;
    n,nrc,nr,i,ok,j:longint;
    f2,f1:text;
function verf(s:char):integer;
var ok,x:longint;
begin
  ok:=0;
  x:=ord(s);
  if (x>=97)and(x<=122) then ok:=1;
  if (x>=65)and(x<=90) then ok:=1;
  verf:=ok;
end;
begin

  assign(f1,'text.in');
  reset(f1);
  assign(f2,'text.out');
  rewrite(f2);


  nrc:=0;
  nr:=0;
  i:=1;
  while (not eof(f1)) do
    begin
      read(f1,s);
      ok:=verf(s);
      if ok=0 then
        begin
          nrc:=nrc+1;
          read(f1,s);
          ok:=verf(s);
          while (ok=0)and(not eof(f1)) do
            begin
              read(f1,s);
              ok:=verf(s);
            end;
          if ok=1 then nr:=nr+1;
        end
           else nr:=nr+1;
    end;
  writeln(f2,trunc(nr / (nrc-1)));
  close(f2);
  close(f1);
end.