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;
begin
assign(f,'text.in');settextbuf(f,b1);reset(F);
assign(g,'text.out');settextbuf(g,b2);rewrite(G);
while not eof(F) do begin
                read(f,c);
                if c in ['A'..'Z','a'..'z'] then inc(k)
                        else if c=' ' then inc(k1);
                     end;
write(g,k  div (k1+2));
close(F);
close(g);
end.