anchor.diff:  |> List.iter (fun i ->
     sprintf "Test %i" i &&& fun ctx ->
       ctx.printfn "I am test %i" i
  -    if i % 10 = 0 then failwith "mod error"
  +    if i % 10 = 0 then failwith "intentional mod error"
       ctx.printfn "A guid %A" (ng()))
  +
  +context "Test Context2"
  +
  +"Skipped test 2" &&! fun _ -> ()
  +
  +"Todo test 2" &&& todo
   
   let maxDOP = 30
   let failedTest = run maxDOP
  
positive.code:   | Pass of id:Guid
    | Fail of id:Guid * ex:Exception
    | RunOver of minutes:int * seconds:int * AsyncReplyChannel<int>
  
  let colorWriteReset color message =
    Console.ForegroundColor <- color
  
negative.code:   | Run
  
  type Reporter =
    | ContextStart of description:string
    | ContextEnd of description:string
    | TestStart of description:string * id:Guid
    | Print of message:string * id:Guid
    | Skip of id:Guid
  