program abcd;
var s:string;
f,g:text; k,i,l:word;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
k:=1;
for i:=2 to length(s) do
 if ((s[i] in ['a'..'z']) or (s[i] in ['A'..'Z'])) and
    (not((s[i-1] in ['a'..'z']) or (s[i-1] in ['A'..'Z']))) then k:=k+1;
  for i:=1 to length(s) do
   if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then l:=l+1;
   write(g,l div k);
   close(f);
   close(g);
  end.