anchor.diff:              | Failure _ | Error _ -> (success,pending,fail+1)
               | Pending -> (success,pending+1,fail)
               | Success -> (success+1,pending,fail)
  -        report.FailedTests |> 
  +        report.ExecutedExamples |> 
           List.map result |> 
           List.fold folder (0,0,0)
   
  
positive.code:         ContainingGroups: ExampleGroup.T List }
  
      type T = {
          FailedTests: ExecutedExample list
          Groups: ExampleGroup.T list
          Indentation: string list }
      let Zero = { 
          Groups = []
          FailedTests = []
          Indentation = [] }
      
      let printIndentation printer report =
  
negative.code:     let exampleName x = x.Example |> Example.name
      let result ex = ex.Result
  
      let printFailedExamples printer executedExamples =
          let rec print indentation executedExample = 
              match executedExample.ContainingGroups with
              | head::tail ->
  