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
        x = b `div` gcd a b
        
        f k n | m == 0    = f k d
              | otherwise = n
              where
              (d, m) = n `divMod` k
    in
        (>1) . foldr f x $ [2, 5]

render :: Output -> String
render True  = "Yes"
render False = "No"

main :: IO ()
main =
    interact
        ( render
        . solve
        . parse
        )