functor (POMap : Pomap_intf.POMAP->
  functor
    (Spec : sig
              val name : string
              val label : string
              val size_x : float
              val size_y : float
              val ratio : float
              val rotation : float
              val center : bool
              val top_attr : string
              val bot_attr : string
              val top_bot_attr : string
              val edge_attr : string
              type el
              type 'a node = 'POMap.node
              val pp_node_attr : Format.formatter -> el node -> unit
            end->
    sig
      type pomap = Spec.el POMap.pomap
      val fprintf : Format.formatter -> pomap -> unit
      val printf : pomap -> unit
    end