main = do
  [a,b] <- map read . words <$> getLine :: IO [Int]
  let
    ans = not $ null [x | x<-[1..a], a`mod`x==0, x`mod`b==0]

  putStrLn $ if ans then "YES" else "NO"