program mada;
var s:string;
    i,c,lung,cuv,nr:integer;
    lm:real;
    f,g:text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
c:=0;
lung:=length(s);
  For i:=1 to lung do
    begin
      If s[i]=' ' then
        c:=c+1;
         If (s[i]=' ') and (s[i-1]<>' ') then
         nr:=nr+1;
    end;
    lm:=(lung-c)/(nr+1);
  writeln(g,lm:0:0);
close(f);
close(g);
end.