Scanf.scanf "%d %d" (fun n a -> let x = Array.init n (fun _ -> Scanf.scanf " %d" (fun x -> x)) in print_endline @@ if Array.fold_left (+) 0 x = n * a then "YES" else "NO" )