functor
  (POMap : Pomap_intf.POMAP) (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