let internal_path_id = ref 0

type t =
  { id : int
  ; path: Path.Fixed.t
  ; back: Path.Fixed.t
  }

let get_id () =
  let id = !internal_path_id in
  incr internal_path_id;
  id