program p1;
var s:ansistring;
    f,g:text;
    b1,b2:array[0..1 shl 17 ] of char;
    i,m,j,k,u,k1:longint;
    c:char;
    p:boolean;
begin
assign(f,'text.in');settextbuf(f,b1);reset(F);
assign(g,'text.out');settextbuf(g,b2);rewrite(G);
p:=false;
while not eof(F) do begin
                read(f,c);
                if c in ['A'..'Z','a'..'z'] then begin
                                        inc(k1);
                                        if p=false then begin
                                                        inc(k);
                                                        p:=true;
                                                        end;
                                                  end
                                                  else
                                                  p:=false;
                     end;
write(g,k1 div k);
close(F);
close(g);
end.