type t = Ptime.t
let stamp = Ptime_clock.now
let pp = Ptime.pp_rfc3339 ()
           ?tz_offset_s:(Ptime_clock.current_tz_offset_s ())
let to_string x = Format.asprintf "%a" pp x