module Main where

import Control.Monad
import Data.List
import Text.Printf

p1 :: Double -> Double -> Double
p1 p q = (1 - p) * q

p2 :: Double -> Double -> Double
p2 p q = (p * (1 - q)) * q

main :: IO ()
main = do
    [p, q] <- fmap read . words <$> getLine :: IO [Double]
    if (p1 p q) < (p2 p q)
        then putStrLn "YES"
        else putStrLn "NO"