sig
  type t = UTC | Local | UTC_Plus of int
  val current : unit -> Time_Zone.t
  val change : Time_Zone.t -> unit
  val gap : Time_Zone.t -> Time_Zone.t -> int
  val from_gmt : unit -> int
  val to_gmt : unit -> int
  val is_dst : unit -> bool
  val hour_of_dst : unit -> int
  val on : ('-> 'b) -> Time_Zone.t -> '-> 'b
end