anchor.diff:                        XAttribute(NsNone + "Label", package.Id.Print()),
                         XAttribute(NsNone + "Category", "Package"))
   
  -        let assemblies = antho.Projects |> Seq.map (fun x -> x.AssemblyReferences)
  -                                        |> Seq.concat
  -                                        |> set
  -        for assembly in assemblies do
  -             yield XElement(NsDgml + "Node",
  -                      XAttribute(NsNone + "Id", assembly.Print()),
  -                      XAttribute(NsNone + "Label", assembly.Print()),
  -                      XAttribute(NsNone + "Category", "Assembly"))
  +//        let assemblies = antho.Projects |> Seq.map (fun x -> x.AssemblyReferences)
  +//                                        |> Seq.concat
  +//                                        |> set
  +//        for assembly in assemblies do
  +//             yield XElement(NsDgml + "Node",
  +//                      XAttribute(NsNone + "Id", assembly.Print()),
  +//                      XAttribute(NsNone + "Label", assembly.Print()),
  +//                      XAttribute(NsNone + "Category", "Assembly"))
       }
   
   let GraphLinks (antho : Anthology) =
  
positive.code:     let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho)
      let xLinks = XElement(NsDgml+"Links", GraphLinks antho)
      let xCategories = XElement(NsDgml + "Categories", GraphCategories ())
      let xLayout = XAttribute(NsNone + "Layout", "ForceDirected")
      XDocument(
          XElement(NsDgml + "DirectedGraph", xLayout, xNodes, xLinks, xCategories))
  
  
negative.code:             for package in project.PackageReferences do
                  yield generateLink (package.Print()) "PackageRef"
  
  //            for assembly in project.AssemblyReferences do
  //                yield generateLink (assembly.Print()) "AssemblyRef"
      }
  
  let GraphCategories () =
  