let filter_array f x = filteri_array (fun _ y -> f y) x