sig
  val init : ?setlocale:bool -> unit -> string
  val main : unit -> unit
  val quit : unit -> unit
  val version : int * int * int
end