sig
  type a = float list
  val distance : float list -> float list -> float
  val max_degree : int
end