sig   type t   val load :     string ->     (Trakeva.KEY_VALUE_STORE.t,      [> `Database of [> `Load of string ] * string ])     Pvem_lwt_unix.Deferred_result.t   val close :     Trakeva.KEY_VALUE_STORE.t ->     (unit, [> `Database of [> `Close ] * string ])     Pvem_lwt_unix.Deferred_result.t   val get :     ?collection:string ->     Trakeva.KEY_VALUE_STORE.t ->     key:string ->     (string option,      [> `Database of [> `Get of Trakeva.Key_in_collection.t ] * string ])     Pvem_lwt_unix.Deferred_result.t   val get_all :     Trakeva.KEY_VALUE_STORE.t ->     collection:string ->     (string list, [> `Database of [> `Get_all of string ] * string ])     Pvem_lwt_unix.Deferred_result.t   val iterator :     Trakeva.KEY_VALUE_STORE.t ->     collection:string ->     unit ->     (string option, [> `Database of [> `Iter of string ] * string ])     Pvem_lwt_unix.Deferred_result.t   val act :     Trakeva.KEY_VALUE_STORE.t ->     action:Trakeva.Action.t ->     ([ `Done | `Not_done ],      [> `Database of [> `Act of Trakeva.Action.t ] * string ])     Pvem_lwt_unix.Deferred_result.t end