anchor.diff:      |> evalTestList printer map
   
     /// Evaluates tests sequentially
  -  let evalSeq =
  -    eval TestPrinters.Default List.map
  +  let evalSeq (printer: TestPrinters) =
  +    printer.MakeSync()
  +    eval printer List.map
   
     /// Evaluates tests in parallel
  -  let evalPar =
  -    let printAsync = ref true
  -    let printer = TestPrinters.combined printAsync
  +  let evalPar (printer: TestPrinters) =
   
       let pmap fn ts =
         let sequenced, parallel =
           List.mapi (fun i t -> i, t) ts
           |> List.partition (fun (i, t) -> t.sequenced)
  +      
  +      printer.MakeAsync()
   
         let parallelResults =
           List.map (fun (index, test) ->
  
positive.code:       errored  = get (TestResult.Error null)
        duration = results |> Seq.map (fun r -> r.duration) |> Seq.fold (+) TimeSpan.Zero }
  
    let logSummary (summary : TestResultSummary) =
      let handleLineBreaks elements = 
          let text = elements |> String.concat "\n\t"
          if text = "" then text else text + "\n"
  
negative.code:                 "( ರ Ĺ̯ ರೃ )"
                else
                  ""
            log.Write Info (
              eventX "EXPECTO! {total} tests run in {duration} – {passes} passed, {ignores} ignored, {failures} failed, {errors} errored. {spirit}"
              >> setField "total" summary.total
              >> setField "duration" summary.duration
  