sig
  val get : unit -> string list
  val add : string -> unit
  val init : unit -> unit
end