var nrc,lgcc,lg_tot,rez : int64;
    c : char;
    f,g : text;
    separatori : set of char;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
separatori:=['.',',',';','!','?','-',' '];
while not eof(f) do
begin
  while not eoln(f) do
  begin
    read(f,c);
      if c in separatori then
      begin
        if lgcc<>0 then
        begin
          inc(lg_tot,lgcc);
          inc(nrc);
          lgcc:=0;
        end;
      end
      else
        inc(lgcc);
  end;
  readln(f);
end;
if lgcc<>0 then
begin
  inc(lg_tot,lgcc);
  inc(nrc);
end;
rez:=lg_tot div nrc;
writeln(g,rez);
close(g);
end.