program txt2;
type pnod = ^nod;
     nod = record
         s : string[1];
         urm : pnod;
         end;
var prim,urm,ultim : pnod;
    S,m,n,i : integer;
    f : text;
begin
assign(f,'text.in');
reset(f);

new(prim);
read(f,prim^.s);
prim^.urm := nil;
ultim := prim;

while not eof(f) do begin
new(urm);
read(f,urm^.s);
urm^.urm := nil;
ultim^.urm := urm;
ultim := urm;
end;
close(f);

n := 1;
m := 0;

while prim<>nil do begin
m := m+1;
if (prim^.s=' ') or (prim^.s=',') or (prim^.s='-') or (prim^.s='!') or (prim^.s='?') then m := m-1;
if (prim^.s=' ') or (prim^.s='-') then n := n+1;
prim := prim^.urm;
end;

assign(f,'text.out');
rewrite(f);
write(f,m div n);
close(f);
end.