rDouble :: String -> Double
rDouble = read

solve [p, q]
    | p1 < p2   = "YES"
    | otherwise = "NO"
    where
        p1 = (1 - p) * q
        p2 = p * (1 - q) * q

main = do
    ls <- map rDouble . words <$> getLine
    putStrLn $ solve ls