module Main where type Input = (Int, Int) type Output = Bool parse :: String -> Input parse s = let [a, b] = map read . words . head $ lines s in (a, b) solve :: Input -> Output solve (a, b) = let cond1 = a == b cond2 = max a b == 4 && min a b == 2 in cond1 || cond2 render :: Output -> String render True = "Yes" render False = "No" main :: IO () main = interact ( render . solve . parse )