anchor.diff:  
       let pmap (f: _ -> _) (s: _ seq) = s.AsParallel().Select(f) :> _ seq
   
  +    /// Evaluates tests in parallel
       let evalPar =
           let funLock =
               let locker = obj()
  
positive.code:     let printFailed = tprintf "%s: Failed: %s (%A)\n"
      let printException name ex = tprintf "%s: Exception: %s (%A)\n" name (exnToString ex)
  
      let evalSeq = 
          let printer = 
              { TestPrinters.Default with 
  
negative.code: 
      module Seq =
          let cons x xs = seq { yield x; yield! xs }
  
      type Type with
          static member TryGetType t = 
              try
                  Type.GetType(t, true) |> Some
              with _ -> None
  
      type MemberInfo with
          member m.HasAttributePred (pred: Type -> bool) =
  