Scanf.scanf "%d" (fun t -> for i = 1 to t do Scanf.scanf " %d %d" (fun n m -> let a = Array.init n (fun _ -> Scanf.scanf " %d" (fun a -> a)) in let rec loop i = if i = n - 1 then "Yes" else if a.(i) + a.(i + 1) >= m then loop (i + 1) else "No" in Printf.printf "%s\n" @@ loop 0 ) done )