let
mapi l ~f =
List
.rev (rev_mapi l ~f)