Var f,g:text;
    s:string;
    a,i,b,c,d:integer;

Begin
assign(f, 'text.in');reset(f);
assign(g, 'text.out');rewrite(g);
read(f, s);
a:=length(s);
for i:=1 to a do
  begin
    if (s[i]<>' ') and (s[i]<>'-') and (s[i]<>'!') and (s[i]<>'?') and (s[i]<>',') then inc(b);
    if (s[i]=' ') or (s[i]='-') then inc(c);
    if s[i]=',' then
      begin
        inc(c);
        inc(d);
      end;
  end;
c:=c-d-1;
write(g, trunc(b/c));
close(f);
close(g);
End.