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