anchor.diff:              | :? FileLoadException as ex ->
                   eprintfn "Couldn't load file '%s'" ex.FileName
                   reraise()
  -        |> Seq.filter (fun ti -> ti.Name <> "<>c")
  +        |> Seq.filter (fun ti -> not (Exclusions.excludeClass ti))
           |> Seq.cache
   
       //printfn "Public types for %s" (Path.GetFileName(assemblyPath))
  
positive.code:         |> Seq.toList
  
      printfn "%s" (String('-', 80))
      printfn "%d errors found" results.Length
  
      if results.Length > 0 then
          for (containingTypeInfo, mi, badTypes) in results do
              for bt in badTypes do
                  printfn "%s %s uses %s" containingTypeInfo.Name mi.Name bt.Name
  
      results.Length
  
  
negative.code: 
      seq {
          yield! subjectType.GetConstructors() |> Seq.filter Details.Public.Test
                                               |> Seq.filter filterMember
                                               |> Seq.collect check.BadActors
                                               |> Seq.map addSubjectType
          yield! subjectType.GetEvents() |> Seq.filter Details.Public.Test
                                         |> Seq.filter filterMember
                                         |> Seq.collect check.BadActors
                                         |> Seq.map addSubjectType
          yield! subjectType.GetFields() |> Seq.filter Details.Public.Test
                                         |> Seq.filter filterMember
                                         |> Seq.collect check.BadActors
                                         |> Seq.map addSubjectType
          yield! subjectType.GetMethods() |> Seq.filter Details.Public.Test
                                          |> Seq.filter filterMember
                                          |> Seq.collect check.BadActors
                                          |> Seq.map addSubjectType
          yield! subjectType.GetProperties() |> Seq.filter Details.Public.Test
                                             |> Seq.filter filterMember
                                             |> Seq.collect check.BadActors
                                             |> Seq.map addSubjectType
      }
  
  // Possibly TODO: also check inherited types & interfaces & collection types
  
  let performTest () =
  
  