func main()
	var n: int :: cui@inputInt()
	var a: []int :: #[n]int
	for i(0, n - 1)
		do a[i] :: cui@inputInt()
	end for
	const max: int :: 16384 * 2 - 1
	var dp: []bool :: #[max + 1]bool
	do dp[0] :: true
	for i(0, n - 1)
		var x: bit64 :: a[i] $ bit64
		for j(0, max)
			if(dp[j])
				do dp[x.xor(j $ bit64) $ int] :: true
			end if
		end for
	end for
	var ans: int :: 0
	for i(0, max)
		if(dp[i])
			do ans :+ 1
		end if
	end for
	do cui@print("\{ans}\n")
end func