struct type t = string [@@deriving yojson]
let create () = fmt "ketrew_%s_%09d" Time.(now () |> to_filename) (Random.int 1_000_000_000) end