func main()
	var ans: int :: 0
	for i(1, 1000)
		var _: [][]char :: cui@input().split(" ")
		var N: int :: _[0].toInt(&)
		var K: int :: _[1].toInt(&)
		do ans :+ (N - 1) % (K + 1) = 0 ?(1 - i % 2, i % 2)
	end for
	do cui@print("\{ans}\n")
end func