var f,g:text;
      c:char;
      i,k,l:longint;
begin
        assign(f,'text.in');
        reset(f);
        k:=0;
        l:=0;
        while not eof(f) do begin
                read(f,c);
                if (c=' ')and(k=0) then k:=0
                        else
                                k:=1;
                if c=' ' then inc(k);
                inc(l)
                end;
        close(f);
        assign(g,'text.out');
        rewrite(g);
        writeln(g,l div k);
        close(g);
end.