Program text1;
 var a : string;
     fi, fo : text;
     i, k1, k2 : integer;

begin
 assign(fi, 'text.in');
 assign(fo, 'text.out');
 reset(fi);
 rewrite(fo);
 readln(fi, a);
 for i:=1 to length(a) do if a[i] in ['a'..'z', 'A'..'Z'] then begin
                                                              inc(k1); inc(k2)
                                                              end
                                                              else inc(k2);
 writeln(fo, k2 div k1);
 writeln(fo);
 close(fo);
end.