sig
  type 'a t
  exception Global_not_initialized of string
  val empty : string -> 'BatGlobal.t
  val name : 'BatGlobal.t -> string
  val set : 'BatGlobal.t -> '-> unit
  val get : 'BatGlobal.t -> 'a
  val undef : 'BatGlobal.t -> unit
  val isdef : 'BatGlobal.t -> bool
  val opt : 'BatGlobal.t -> 'a option
end