anchor.diff:              for package in project.PackageReferences do
                   yield generateLink (package.Print()) "PackageRef"
   
  -            for assembly in project.AssemblyReferences do
  -                yield generateLink (assembly.Print()) "AssemblyRef"
  +//            for assembly in project.AssemblyReferences do
  +//                yield generateLink (assembly.Print()) "AssemblyRef"
       }
   
   let GraphCategories () =
  
positive.code:                       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 GraphLinks (antho : Anthology) =
  
negative.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", "Sugiyama")
      XDocument(
          XElement(NsDgml + "DirectedGraph", xLayout, xNodes, xLinks, xCategories))
  
  