program p1;
var f,g:text;
    c:char;
    nrc,nrl:integer;
begin
     assign(f,'text.in');reset(f);
     assign(g,'text.out');rewrite(g);
     nrl:=0;nrc:=0;
     while not eof(f) do
           begin
                read(f,c);
                if c=' ' then nrc:=nrc+1
                       else if (c in ['a'..'z'])or(c in ['A'..'Z']) then nrl:=nrl+1;
           end;
           nrc:=nrc-1;
     writeln(g,nrl div nrc);
     close(g);
     close(f);
end.