main :: IO ()
main = interact $ solve . map (read :: String -> Float) . words

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