for(l=n=0;/ \* /g(l)?++n:l=readline();)'-'<l&&n?n=print(n/2)|0:0