anchor.diff:          | Failure e -> sprintf "%A" e.Message |> printer Red
           | Error(_) -> sprintf "%A" result |> printer Red
           "\n" |> printer Default
  -        { report with FailedTests = executedExample :: report.FailedTests }
  +        { report with ExecutedExamples = executedExample :: report.ExecutedExamples }
       let success report = 
           let (_,_,failed) =  getSummary report
           failed = 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 ->
  