var c:char;
    l, cuv, k:longint;
begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
 l:=0; cuv:=0; k:=0;
 while not eof do
  begin
   read(c);
    if not (c in ['a'..'z','A'..'Z']) then
                                       begin
                                        inc(l);
                                         if k=0 then
                                                 begin
                                                  inc(cuv);
                                                   k:=1;
                                                 end;
                                       end
                                      else k:=0;
  end;
   writeln(l div cuv);
close(input);
close(output);
end._