sig
  type t
  external getItem : string -> Dom_storage.t -> string option = ""
    "BS-EXTERNAL"
  external setItem : string -> string -> Dom_storage.t -> unit = ""
    "BS-EXTERNAL"
  external removeItem : string -> Dom_storage.t -> unit = "" "BS-EXTERNAL"
  external clear : Dom_storage.t -> unit = "" "BS-EXTERNAL"
  external key : int -> Dom_storage.t -> string option = "" "BS-EXTERNAL"
  external length : Dom_storage.t -> int = "" "BS-EXTERNAL"
  external localStorage : Dom_storage.t = "" "BS-EXTERNAL"
  external sessionStorage : Dom_storage.t = "" "BS-EXTERNAL"
end