import Control.Applicative ((<$>)) main :: IO () main = solve <$> map read <$> words <$> getLine >>= putStrLn solve :: [Int] -> String solve [a, b] = case [(a, b)] >>= dfs of [] -> "No" _ -> "Yes" dfs :: (Int, Int) -> [(Int, Int)] dfs (x, y) | x == 0 && y == 0 = [(0, 0)] | odd x && odd y = [] | odd x && even y = [(x-1, y `div` 2)] >>= dfs | even x && odd y = [(x `div` 2, y-1)] >>= dfs | otherwise = [(x-1, y `div` 2), (x `div` 2, y-1)] >>= dfs