Var f,g:text;
    nrlit,nrcuv,i,i2:longint;
    a:char;
    v:array [1..1] of char;

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(nrlit);
     else inc(i2);
    end;
    case v[1] of
      'a'..'z','A'..'Z':inc(i);
    end;
    if (i=1) and (i2=1) then inc(nrcuv);
    v[1]:=a;
    i:=0;
    i2:=0;
  end;
write(g, trunc(nrlit/nrcuv));
close(f);
close(g);
End.