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:             let execOne (name: string, test) = 
                  beforeRun name
                  let w = System.Diagnostics.Stopwatch.StartNew()
                  try
                      test()
                      w.Stop()
                      onPassed name w.Elapsed
  