var c1, c2:char;
    nr, lc:int64;
    f, g:text;


begin
assign(f, 'text.in');reset(f);
assign(g, 'text.out');rewrite(g);
read(f,c2);
c1:= ' ';
while (not(eof(f))) do begin
  if (c2 in ['a'..'z', 'A'..'Z']) and not(c1 in ['a'..'z', 'A'..'Z']) then begin inc(nr); inc(lc) end;
  if (c2 in ['a'..'z', 'A'..'Z']) and (c1 in ['a'..'z', 'A'..'Z']) then begin inc(lc) end;
  c1:=c2;
  read(f,c2);
end;
if (c2 in ['a'..'z', 'A'..'Z']) and not(c1 in ['a'..'z', 'A'..'Z']) then begin inc(nr); inc(lc) end;
if (c2 in ['a'..'z', 'A'..'Z']) and (c1 in ['a'..'z', 'A'..'Z']) then begin inc(lc) end;
writeln(g, lc div nr);
close(f);
close(g);
end.