anchor.diff:              (fun s -> 
                   let old = System.Console.ForegroundColor 
                   try 
  -                  System.Console.ForegroundColor <- c;
  +                  System.Console.ForegroundColor <- c
                     System.Console.Write s
                   finally
                     System.Console.ForegroundColor <- old) 
  
positive.code:     let tprintf fmt = Printf.kprintf Trace.Write fmt
  
      open System.Text.RegularExpressions
      let exnToString =
          let rx = lazy Regex(" at (.*) in (.*):line (\d+)", RegexOptions.Compiled ||| RegexOptions.Multiline)
          fun (e: Exception) -> 
              rx.Value.Replace(e.ToString(), "$2($3,1): $1")
  
  
      type MemberInfo with
          member m.HasAttributePred (pred: Type -> bool) =
  
negative.code:                     w.Stop()
                      match e with
                      | ExceptionInList failExceptions ->
                          let msg =
                              let firstLine = 
                                  (stackTraceToString e.StackTrace).Split('\n') 
                                  |> Seq.filter (fun q -> q.Contains ",1): ") 
                                  |> Enumerable.FirstOrDefault
                              sprintf "%s%s\n" e.Message firstLine
                          onFailed name msg w.Elapsed
                          { Name = name
                            Result = Failed msg
                            Time = w.Elapsed }
                      | ExceptionInList ignoreExceptions ->
                          onIgnored name e.Message
  