type session = {path : string;mutable closed : bool;
}val sqlite_open : string -> unitval sqlite_close : string -> unitval sqlite_store : string -> (string * string) list -> unitval sqlite_restore : string -> string -> string optionval sqlite_list_addresses : string -> string listval sqlite_delete : string -> string list -> unitval open_session : string -> session