let g = 3000000 let () = let n = Scanf.scanf "%d " (fun i -> i) in let a = Array.init n (fun _ -> Scanf.scanf "%d %d " (fun g d -> g - 30000 * d)) in let _, (j, m) = Array.fold_left (fun (i, (j, m)) e -> i + 1, if e > m then (i, e) else (j, m)) (0, (0, 0)) a in if 6*m < g then print_endline "NO" else begin print_endline "YES"; for _ = 0 to 5 do Printf.printf "%d\n" (j + 1) done end