var f,g:text;
    a:string;
    len,nr,x:integer;

const c=[' ','-','!','?','.',',','.'];

procedure citire;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,a);
end;

procedure impartire(var len,nr:integer);
var j:integer;
begin
len:=0;
nr:=0;
for j:=1 to length(a) do begin
   if (a[j]in c)and(len=0) then
                           else if not(a[j]in c) then len:=len+1
                                                 else if (a[j]in c)and(len>0)and(not(a[j+1]in c)) then nr:=nr+1;
end;
end;

begin
citire;
impartire(len,nr);
x:=len div nr;
write(g,x);
close(g);
end.