ounit2 Invalid_argument(List.for_all2) code example Example: list.fold_right val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b