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.