anchor.diff:    let createSummaryMessage (summary: TestResultSummary) =
       let handleLineBreaks elements =
           elements
  +        |> List.map (fun n -> n.name)
           |> List.map (fun x -> "\n\t" + x)
           |> String.concat ""
   
  
positive.code: 
      let get result =
        match counts.TryGetValue (TestResult.tag result) with
        | true, v -> v |> Seq.map (fun r -> r.name) |> Seq.toList
        | _ -> List.empty
  
      { passed   = get TestResult.Passed
  
negative.code:         |> List.max
  
      let align (d:int) offset = d.ToString().PadLeft(offset + digits)
  
      eventX "EXPECTO?! Summary...\nPassed: {passedCount}{passed}\nIgnored: {ignoredCount}{ignored}\nFailed: {failedCount}{failed}\nErrored: {erroredCount}{errored}"
      >> setField "passed" passed
      >> setField "passedCount" (align passedCount 1)
  