let () = Scanf.scanf "%d %d\n" @@ fun n m -> let lst = List.fast_sort compare (Array.to_list (Array.init m @@ fun _ -> Scanf.scanf "%d %d\n" @@ fun t p -> (t, p))) in let (ans,(_,_)) = List.fold_left (fun (ans,(bfrt,bfrp)) (t,p) -> if abs (bfrp-p) <= t - bfrt then (true,(t,p)) else (false,(t,p))) (true,(0,0)) lst in Printf.printf "%s\n" (if ans then "Yes" else "No")