sig
  val ext : string -> unit
  val set_width : float -> unit
  val set_height : float -> unit
  val set_pagestyle : string -> unit
  val initialize_output : unit -> unit
  val finalize_output : unit -> unit
  val output_section : string -> unit
  val output_comment : string -> unit
  val set_window : float * float * float * float -> unit
  val set_unit_factor : float -> unit
  val initialize_pspicture : unit -> unit
  val finalize_pspicture : unit -> unit
  val draw_vertex_neighborhood :
    int list -> int list -> int -> int list -> unit
  val draw_edge_neighborhood :
    int list ->
    int list ->
    int list ->
    int list -> int list -> int list -> int -> int -> turn:bool -> unit
end