main = do
	[p, q] <- getLine >>= return . map (read::String->Float) . words
	let p1 = (1 - p) * q
	let p2 = p * (1 - q) * q
	putStrLn $ if p1 < p2 then "YES" else "NO"