functor (Dbm : DbmType) ->   sig     val withdbm :       ?flags:Dbm.open_flag list ->       ?perms:int -> string -> (Dbm.t -> 'a) -> 'a     val fold : ('a -> string -> string -> 'a) -> 'a -> Dbm.t -> 'a   end