sig   type database =       [ `Close       | `Exec of string * string list       | `Fetching_node of string       | `Load of string       | `Parsing of string ] *       [ `Exn of string | `Pointer_loop_max_depth of int ]   val database_to_string : Ketrew.Persistent_data.Error.database -> string end