let vertex_attributes v =
        match G.V.label v with
        |PkgV.Or _ -> [`Label "Or" ; `Shape `Diamond]
        |PkgV.Pkg p when p.Cudf.installed -> [ `Color 0x00FF00 ]
        |-> []