sig
  type t = string list
  val get : string -> unit -> t
  val set : string -> t -> unit
  val clear : string -> unit -> unit
  val is_set : string -> unit -> bool
  val is_default : string -> unit -> bool
  val add : string -> string -> unit
  val append_before : string -> string list -> unit
  val append_after : string -> string list -> unit
  val remove : string -> string -> unit
  val is_empty : string -> unit -> bool
  val iter : string -> (string -> unit) -> unit
end