var c :char;
    k,l,i,J : longint;
    begin
        assign(input,'text.in'); reset(input);
        assign(output,'text.out'); rewrite(output);
        while not eof do begin
        read(c);
        if (ord(c)>=65) and (ord(c)<=90) then l:=l+1;
        if (ord(c)>=97) and (ord(c)<=122) then l:=l+1;
        IF (c=' ') THEN k:=k+1;
                               end;
writeln(l div k);
                                                                                     close(input); close(output);
                                                                                     end.