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