functor (Settings : SETTINGS) ->
  sig
    val all : (int * (string * Settings.t)) list Pervasives.ref
    val register : string -> int -> Settings.t -> unit
    val of_name : string -> Settings.t
    val choice : OUnitConf.conf -> string * Settings.t
    val preset : (string * string) list -> (string * string) list
  end