program _text;

const fin = 'text.in';
     fout = 'text.out';

var w,l: longint;
    lit: array[0..256] of boolean;

procedure filllit;
 var i: longint;
begin
 fillchar(lit, sizeof(lit), false);
 for i:=65 to 90 do lit[i]:=true;
 for i:=97 to 122 do lit[i]:=true;
end;

procedure load;
 var f: text; pc,c: char;
begin
 assign(f, fin); reset(f);
 w:=0;
 l:=0;
 pc:=' ';
 while not eof(f) do
       begin
            read(f,c);
            if lit[ ord(c)] then inc(l)
               else if lit[ ord(pc)] then inc(w);
            pc:=c;
       end;
 if lit[ ord(pc)] then inc(w);
 close(f);
end;

procedure save;
 var f: text;
begin
 assign(f, fout); rewrite(f);
  write(f, trunc(l/w));
 close(f);
end;

begin
 filllit;
 load;
 save;
end.