procedure main()
s:=0
every|a\26:=read()&c:=!"-_"&a?(n:=0)+:=(!upto(c)&1)|write(s+:=0<n)
end