let list_rev =
list_rev_append ~tail:[]
+let list_fold_right f map l a =
+ let map f a m = map f m a in
+ list_rev (list_fold_left f map a) l
+
let list_map f =
list_rev_map (list_rev f)
+let list_iter f map l =
+ let map f () x = map f x in
+ list_fold_left f map () l