import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> (map read . words <$> getLine) >>= putStrLn

solve :: [Double] -> String
solve [p, q] = if p1 < p2 then "YES" else "NO"
  where
    p1 = (1 - p) * q
    p2 = p * (1 - q) * q