anchor.diff:          | (0,0) -> ()
           | (0,_) -> "There are pending examples: \n" |> printer Yellow
           | _ -> "There are filed examples: \n" |> printer Red
  -        report.FailedTests |> List.iter (printFailedExample printer)
  +        report.ExecutedExamples |> (printFailedExamples printer)
           sprintf "%d success, %d pending, %d failed\n" success pending failed |> printer Default
           report
   
  
positive.code:     let exampleName x = x.Example |> Example.name
      let result ex = ex.Result
  
      let printFailedExample printer executedExample =
          let rec print indentation executedExample = 
              match executedExample.ContainingGroups with
              | head::tail ->
  
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
  