let
map l ~f = mapi l ~f:(
fun
_ x
->
f x)