Bench_common.Generate_treesmodule Store : Irmin.Generic_key.KV with type Schema.Contents.t = bytesval add_chain_trees : int -> int -> Store.tree -> Store.tree Lwt.tadd_chain_trees depth nb tree adds nb random contents to tree, depthwise.
val add_large_trees : int -> int -> Store.tree -> Store.tree Lwt.tadd_large_trees width nb tree adds nb random contents to tree, breadthwise.