anchor.diff:  type AssemblyRef =
     {
       Path: String
  -    Assembly: Assembly
  +    Assembly: AssemblyDefinition
       Name: String
     }
   
  
positive.code:   override x.ToString () = x.Path
  
  [<Serializable>]
  type ForeignAidWorker () =
  
    let mkGraph (seeds: seq<AssemblyRef>) : Digraph<AssemblyRef> =
  
      let findRef (s: seq<AssemblyRef>) (m: AssemblyName) =
        match Seq.tryFind (fun r -> r.Name = m.Name) seeds with
        | None    -> s
        | Some ar -> Seq.append (Seq.singleton ar) s
  
      let processNode (g: Digraph<AssemblyRef>) (n: AssemblyRef) =
        let depNames = n.Assembly.GetReferencedAssemblies ()
        let depRefs = Array.fold findRef Seq.empty depNames
        Seq.fold (fun h c -> Digraph.addEdge (n, c) h) g depRefs
  
  
negative.code: 
  open System.Reflection
  open System
  open Mono.Cecil
  
  module Object = 
    let eqHack (f: 'a -> 'b) (x: 'a) (yobj: Object) : Boolean =
  