program kira;
var s:string;
    p,m,i,pp,ppp,pd,pdd,k,kk:integer;
    f,g:text;
begin
    assign(f,'text.in'); reset(f);
    read(f,s);   close(f);  i:=1; k:=1;
    while i<=length(s) do begin
          p:=pos(' ',s);
          if p>0 then inc(k);
          delete(s,p,1);
          if pp>0 then inc(k);
          pp:=pos('-',s);
          delete(s,pp,1);
          ppp:=pos('?',s);
          delete(s,ppp,1);
          pd:=pos('!',s);
          delete(s,pd,1);
          pdd:=pos('.',s);
          delete(s,pdd,1);
          pdd:=pos(',',s);
          delete(s,pdd,1);
    inc(i);
    end;
    kk:=length(s);
    assign(g,'text.out'); rewrite(g);
    write(g,kk div k);
    close(g);
end.