{-# LANGUAGE OverloadedStrings #-}
import           Data.Attoparsec.ByteString.Char8
import qualified Data.ByteString.Char8            as B

main :: IO ()
main = do
  Right (k, x) <- parseOnly ((,) <$> decimal <* space <*> decimal) <$> B.getLine
  B.putStrLn $ if solve k x then "Yes" else "No"

solve :: Int -> Int -> Bool
solve k x = 500 * k >= x