anchor.diff:  
       type T = {
           ExecutedExamples: ExecutedExample list
  -        Groups: ExampleGroup.T list
  -        Indentation: string list }
  +        Groups: ExampleGroup.T list }
       let Zero = { 
           Groups = []
  -        ExecutedExamples = []
  -        Indentation = [] }
  +        ExecutedExamples = [] }
       
  -    let printIndentation printer report =
  -        report.Indentation |> List.rev |> List.iter (printer Default)
  -
       let exampleName x = x.Example |> Example.name
       let result ex = ex.Result
   
  
positive.code: 
  
      let beginGroup printer exampleGroup report =
          printIndentation printer report
          sprintf "%s\n" (exampleGroup |> ExampleGroup.name) |> printer Color.Default
          { report with 
              Indentation = "  " :: report.Indentation
              Groups = exampleGroup :: report.Groups }
  
      let endGroup report = 
          { report with 
              Indentation = report.Indentation.Tail
              Groups = report.Groups.Tail }
      
      let getSummary report =
          let folder (success,pending,fail) = function
  
negative.code:         report
  
      let reportExample printer example result report =
          let executedExample = 
              { Example = example; ContainingGroups = report.Groups; Result = result }
          { report with ExecutedExamples = executedExample :: report.ExecutedExamples }
      let success report = 
          let (_,_,failed) =  getSummary report
  