functor (X : INPUT) ->
  sig
    exception Error of string
    val handle_error : ('a -> 'b) -> 'a -> 'b
    val fprint_graph : Format.formatter -> X.graph -> unit
    val output_graph : Pervasives.out_channel -> X.graph -> unit
    val run_graph :
      [ `Gif | `HpGl | `Imap | `Ismap | `Mif | `Plain | `PostScript] ->
      (Pervasives.in_channel -> 'a) -> X.graph -> 'a
  end