modIntDivisor :: Int
modIntDivisor = floor 1e9 + 7

extGcd :: Integral a => Int -> Int -> (Int, Int)
extGcd a 0 = (1, 0)
extGcd a b = (x, y)
	where
		(x', y') = extGcd b (a `mod` b)
		x = y'
		y = x' - a `div` b * y';

newtype ModInt = ModInt { unModInt :: Int } deriving (Eq, Show)

modInt :: Int -> ModInt
modInt x = ModInt $ (x `mod` modIntDivisor + modIntDivisor) `mod` modIntDivisor

modIntMap2 :: (Int -> Int -> Int) -> ModInt -> ModInt -> ModInt
modIntMap2 f a b = modInt $ f (unModInt a) (unModInt b)

instance Num ModInt where
	(+) = modIntMap2 (+)
	(-) = modIntMap2 (-)
	(*) = modIntMap2 (*)
	abs = id
	signum _ = 1
	fromInteger = modInt . fromInteger

instance Enum ModInt where
	toEnum = modInt
	fromEnum = unModInt

minv :: ModInt -> ModInt
minv a = modInt y
	where (_, y) = extGcd modIntDivisor $ unModInt a

mdiv :: ModInt -> ModInt -> ModInt
mdiv x y = x * minv y

mperm :: ModInt -> ModInt -> ModInt
mperm _ 0 = 1
mperm n r = product [(n - r + 1)..n]

mcomb :: ModInt -> ModInt -> ModInt
mcomb n r = mperm n r `mdiv` product [1..r]

calc :: Int -> Int -> ModInt
calc x y
	| (x + y) `mod` 3 /= 0       = 0
	| (diff + dist) `mod` 2 /= 0 = 0
	| n < 0 || dist < n          = 0
	| otherwise = mcomb (modInt dist) (modInt n)
	where
		diff = x - y
		dist = (x + y) `div` 3
		n = (diff + dist) `div` 2

main :: IO ()
main = do
	[x, y] <- map read . words <$> getLine :: IO [Int]
	print (x, y)
	print $ calc x y
