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