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