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