var
f1,f2:text;
c1,c2:char;
n,m:longint;
begin
assign(f1,'text.in');
assign(f2,'text.out');
reset (f1);
rewrite (f2);
read(f1,c1);
n:=0; m:=0;
if c1 in ['A'..'Z','a'..'z'] then begin n:=1; m:=1; end;
while not eof(f1) do
begin
read(f1,c2);
if c2 in ['A'..'Z','a'..'z']  then m:=m+1;
if (not (c1 in ['A'..'Z','a'..'z'])) and (c2 in ['A'..'Z','a'..'z']) then n:=n+1;
c1:=c2;
end;
writeln (f2,m div n);
close(f1);
close(f2);
end.