var
a:string;
n,m,i,l:integer;
f,g:text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
readln(f,a);
n:=length(a);
for i:=1 to n do
begin
if a[i]='-' then m:=m+1;
if a[i]=' ' then m:=m+1;
end;
for i:=1 to n do
begin
if a[i]='!' then l:=l+1;
if a[i]=',' then l:=l+1;
if a[i]='-' then l:=l+1;
end;
n:=n-m-l;
if a[i]='-' then m:=m-1;
writeln(g,(n div m));
close(f);
close(g);
end.