var f,g:text;
    x,y:char;
    nr1,nr2:longint;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
nr1:=0;
nr2:=0;
read(f,x);
y:=x;
if (x in ['a'..'z']) or (x in ['A'..'Z']) then inc(nr1);
repeat
read(f,x);
if (x in ['a'..'z']) or (x in ['A'..'Z']) then inc(nr1);
if ((y in ['a'..'z']) or (y in ['A'..'Z'])) and (not(x in ['A'..'Z'])) and (not(x in ['a'..'z'])) then inc(nr2);
y:=x;
until eof(f);
if (x in ['a'..'z']) or (x in ['A'..'Z']) then inc(nr2);
writeln(g,nr1 div nr2);
close(f);
close(g);
end.