type t = {
src : PiEltHA.t;
dst : PiEltHA.t;
dist : int;
}
val create : String.t -> String.t -> int -> t
val to_string : t -> string
val dist : t -> int