sig val init_reglages : unit -> unit end