sig
  val now : unit -> Ptime.t
  val period : unit -> Ptime.span option
  val current_tz_offset_s : unit -> Ptime.tz_offset_s option
  val now_d_ps : unit -> int * int64
  val period_d_ps : unit -> (int * int64) option
end