var
  a : array [1..100] of longint;
  n,sum,i :longint;
begin
  for i:=1 to 31 do
    readln(a[i]);
  sum:=0;
  for i:=1 to 31 do
    if a[i]='-' then
      sum:=sum+1;
  writeln(sum);
end.