let
map_array f x = mapi_array (
fun
_ y
->
f y) x