type graph = (int * int) list

val encode_graph : graph -> string