assoc.opt ocaml code example Example: list.fold_right val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b