program doi;
var nrc,lung,n:longint;
    f,t:text;
    x:char;
begin
  assign(f,'text.in');
  reset(f);
  nrc:=0;lung:=0;
  while not seekeof(f) do
    begin
      read(f,x);
      if upcase(x) in ['A'..'Z','0'..'9'] then
        begin
          inc(lung);
          if n=0 then inc(nrc);
          n:=1;
        end
      else n:=0;
    end;
  close(f);
  {---------------}
  assign(t,'text.out');
  rewrite(t);
  write(t,lung div nrc);
  close(t);
end.