Var f,g:text;
    a:char;
    b,i,c:integer;

Begin
assign(f, 'text.in');reset(f);
assign(g, 'text.out');rewrite(g);
while eof(f)=false do
  begin
    read(f, a);
    case a of
      'a'..'z','A'..'Z':inc(b);
    end;
    inc(i);
    if i>=2 then
      case a of
        '-',' ':inc(c);
      end;
    end;
write(g, trunc(b/c));
close(f);
close(g);
End.