sig val init : ?setlocale:bool -> unit -> unit val quit : unit -> unit end