struct

  type t = string [@@deriving yojson]

  
  (** Create a fresh filename-compliant identifier. *)

  let create () =
    fmt "ketrew_%s_%09d"
      Time.(now () |> to_filename) (Random.int 1_000_000_000)
end