var f,g:text;
    lunglit,nrcuv:longint;
    p:boolean;
    i,x:char;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g);
lunglit:=0;
nrcuv:=0;
while not eof(f) do begin
 p:=false;
 read(f,x);
 for i:='A' to 'Z' do if x=i then p:=true;
 for i:='a' to 'z' do if x=i then p:=true;
 if p then inc(lunglit)
      else if (x=' ')or(x='-')and(lunglit<>0) then  inc(nrcuv);
                       end;
inc(nrcuv);
write(g,lunglit div nrcuv);
close(f);
close(g);
end.