var
  ch:char;
  i,j,words,letters,chars:integer;
Begin
    assign(input,'text.in');  reset(input);
    assign(output,'text.out'); rewrite(output);
    read(input,ch);
    while not(ch in ['a'..'z','A'..'Z']) do read(input,ch);
     letters:=0;
     words:=0;
     while not(eof(input)) do
      begin
         if ch in ['a'..'z','A'..'Z'] then inc(letters);
         if not(ch in ['a'..'z','A'..'Z']) then inc(words);
         read(ch);
      end;
    write(output,letters div words);
    close(input);
    close(output);
end.