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