Program text2;
var x:char;
    nr1,nr2:int64;
    i:longint;
    ok:boolean;
    f,q:text;
begin
assign(f,'text.in');
reset(f);
assign(q,'text.out');
rewrite(q);
nr1:=0;
nr2:=0;
while not eoln(f) do begin
read(f,x);
ok:=false;
        for i:=65 to 90 do
        if ord(x)=i then ok:=true;
        for i:=97 to 122 do
        if ord(x)=i then ok:=true;
if ok=true then nr1:=nr1+1
           else nr2:=nr2+1;
        end;
write(q,nr1 div nr2);
close(f);
close(q);
end.