import Control.Applicative ((<$>))

knight :: Integral a => (a, a) -> [(a, a)]
knight (x, y) = [ (x, y)
                , (x - 2, y - 1)
                , (x - 2, y + 1)
                , (x - 1, y - 2)
                , (x - 1, y + 2)
                , (x + 1, y - 2)
                , (x + 1, y + 2)
                , (x + 2, y - 1)
                , (x + 2, y + 1)
                ]

walk :: Integral a => [(a, a)] -> [(a, a)]
walk = concat . (map knight)

solve :: Integral a => (a, a) -> Bool
solve (x, y) = (x, y) `elem` pos
    where
        pos = walk . walk . walk $ [(0, 0)]

main = do
    [x, y] <- map read . words <$> getLine
    case solve (x, y) of
        True  -> putStrLn "YES"
        False -> putStrLn "NO"