Added gen_graphic.ml