import Data.List

main = do
  [a,b] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ ans a b

ans :: Int -> Int -> String
ans a b = if 500 * a < b 
             then "No" 
             else "Yes"
