sig val fprint_graph : Format.formatter -> Display.t -> unit val output_graph : out_channel -> Display.t -> unit end