main = getLine >>= putStrLn . solve . map read . words solve :: [Double] -> String solve [p, q] | (1.0 - p) * q < p * (1.0 - q) * p * q = "YES" | otherwise = "NO"