program text_cuv;
 var
    f:text;
    s:string;
    n,i,l:byte;
begin
 assign(f,'text.in');
 reset(f);
  read(f,s);
 close(f);
 i:=1;
  while i<=length(s) do
   begin
  while ((s[i]=' ') or (s[i]='.') or (s[i]=',')) and (i<=length(s)) do
   inc(i);
  if i<=length(s) then
   inc(n);
  while (s[i]<>' ') and (s[i]<>'.') and (s[i]<>',') and (i<=length(s)) do
   begin
    inc(i);
    if (s[i]<>' ') and (s[i]<>'.') and (s[i]<>',') then
    inc(l);
   end;
  end;
 assign(f,'text.out');
 rewrite(f);
  write(f,l div n);
 close(f);
end.