module Main where

main :: IO ()
main = putStrLn =<< solve <$> getIntList <*> getIntList

solve :: [Int] -> [Int] ->  String
solve [_, h] a = judge $ loop h a
  where
  loop 1 _  = True
  loop _ [] = False
  loop h' (v:a') = let x = gcd h' v
                   in  loop (h' `div` x) a'

judge :: Bool -> String
judge True  = "YES"
judge False = "NO"

getIntList :: IO [Int]
getIntList = map read . words <$> getLine