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