var s    : string;
    i, n,k,med_mr : integer;
    f, g : text;
BEGIN
 assign(f, 'text.in'); assign(g, 'text.out'); 
 Readln(f, s); n := length(s); med_mr:=0;
 i := 1; k := 0;

 while i <= n do begin
  if s[i] in ['a'..'z', 'A'..'Z'] then inc(k)
  else inc(med_mr); 
  inc(i);
 end;
 
 Writeln(g, round(k/(med_mr+1)));
 close(f); close(g);
END.