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