import Control.Applicative

main :: IO ()
main = solve <$> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> String
solve [k, x]
  | 500 * k >= x = "Yes"
  | otherwise = "No"
