sig
  type t = (int list * (int * int) list) array array
  val print_kappa : Signature.s -> Format.formatter -> Contact_map.t -> unit
  val print_cycles : Signature.s -> Format.formatter -> Contact_map.t -> unit
  val to_yojson : Contact_map.t -> Yojson.Basic.json
  val of_yojson : Yojson.Basic.json -> Contact_map.t
end