Program p1;
  var s,y:char;
  i,k,k1,n:longint;
  f,g:text;
 begin
 assign(f,'text.in');reset(f);
 assign(g,'text.out');rewrite(g);
 k:=0;k1:=0;y:=s;
 read(f,s);
 if s in ['a'..'z','A'..'Z'] then inc(k);
 while not eof(f) do begin
       read(f,s);
        if s in ['a'..'z','A'..'Z'] then inc(k);
           if (y in ['a'..'z','A'..'Z']) and (not (s in ['a'..'z','A'..'Z']))  then inc(k1);
           y:=s;
           end;
           if s in ['a'..'z','A'..'Z'] then inc(k);
           n:=k div k1;
           write(g,n);
 close(g);
 end.