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;
 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 not (s in['a'..'z','A'..'Z']) then inc(k1);
           end;
           if s in ['a'..'z','A'..'Z'] then inc(k);
           n:=k div k1;
           write(g,n);
 close(g);
 end.