var a: char;
    l, c: integer;
    u: boolean;
begin
 assign(input,'text.in');
 reset(input);
 assign(output,'text.out');
 rewrite(output);

 l:=0; u:=false; c:=0;
 while not eof do Begin

                        read(a);
                        if (a in ['a'..'z', 'A'..'Z']) then
                         Begin
                          inc(l);
                          if u=false then
                                    begin
                                     inc(c);
                                     u:=true;
                                    end; end
                                   else u:=false;
                  end;



 writeln(l div  c);
 close(input);
 close(output);
end.