anchor.diff:                          sprintf "%A\n" x.Result |> printer Default
                       | Pending -> "PENDING\n" |> printer Yellow
                       | _ -> ()
  -                print indentation xs     
  +                print indent xs     
   
           let failed executedExample = 
               match result executedExample with
  
positive.code:     let result ex = ex.Result
  
      let printFailedExamples printer executedExamples =
          let rec print indentation executedExamples = 
              match executedExamples with
              | [] -> ()
              | x::xs ->
                  match x.ContainingGroups with
                  | head::tail ->
                      head |> ExampleGroup.name |> (sprintf "%s%s\n" indentation) |> printer Default
                      print (indentation + "  ") [{ x with ContainingGroups = x.ContainingGroups.Tail }]
                  | [] -> 
                      sprintf "%s- %s - " indentation (x |> exampleName) |> printer Default
                      match result x with
  
negative.code:         executedExamples |> List.filter failed 
          |> List.rev
          |> List.map (fun x -> {x with ContainingGroups = x.ContainingGroups |> List.rev })
          |> (print [])
  
  
      let beginGroup printer exampleGroup report =
  