let hoge p q = let p1 = (1.0 - p) * q; let p2 = p * (1.0 - q) * q; if p1 < p2 then "YES" else "NO" [] let main _ = let p, q = let t = stdin.ReadLine().Split() |> Array.map float t.[0], t.[1] hoge p q |> printfn "%s" 0