Scanf.scanf "%f %f" (fun p q ->
    let p1 = (1. -. p) *. q in
    let p2 = p *. (1. -. q) *. q in
    print_endline @@ if p1 < p2 then "YES" else "NO"
)