anchor.diff:          ContainingGroups: ExampleGroup.T List }
   
       type T = {
  -        FailedTests: ExecutedExample list
  +        ExecutedExamples: ExecutedExample list
           Groups: ExampleGroup.T list
           Indentation: string list }
       let Zero = { 
           Groups = []
  -        FailedTests = []
  +        ExecutedExamples = []
           Indentation = [] }
       
       let printIndentation printer report =
  
positive.code:             | Failure _ | Error _ -> (success,pending,fail+1)
              | Pending -> (success,pending+1,fail)
              | Success -> (success+1,pending,fail)
          report.FailedTests |> 
          List.map result |> 
          List.fold folder (0,0,0)
  
  
negative.code:                     sprintf "%A\n" executedExample.Result |> printer Default
                  | Pending -> "PENDING\n" |> printer Yellow
                  | _ -> ()
          let failed executedExample = 
              match result executedExample with
              | Success -> false
              | _ -> true
          executedExamples |> List.filter failed |> List.iter (print "")
  
  
      let beginGroup printer exampleGroup report =
          printIndentation printer report
  