let get_fresh_playground t =
  let fresh = Unique_id.create () in
  Option.map (playground t) (fun pg ->
      Path.(concat pg (relative_directory_exn fresh)))