import Data.Bool

main = do
 [p,q] <- map read . words <$> getLine :: IO [Double]
 putStrLn $ bool "NO" "YES" (usb p q)

usb p q = (1-p)*q < p*(1-q)*q