main = getLine >>= putStrLn . solve . map read . words

solve :: [Double] -> String
solve [p, q]
        | (1.0 - p) * q < p * (1.0 - q) * q = "YES"
        | otherwise = "NO"