type graph = (int * int) list
type color

val encode_graph : graph -> string
val color: graph -> (color list) option