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