anchor.diff:          beforeEach = fun n -> async {
             do! innerPrinter.beforeEach n
             tcLog "testStarted" [
  -            "flowId", n
  -            "name", n ] }
  +            "flowId", ( formatName n )
  +            "name", ( formatName n ) ] }
   
           passed = fun n d -> async {
             do! innerPrinter.passed n d
             tcLog "testFinished" [
  -            "flowId", n
  -            "name", n
  +            "flowId", ( formatName n )
  +            "name", ( formatName n )
               "duration", d.TotalMilliseconds |> int |> string ] }
   
           info = fun s ->
  
positive.code:         ignored = fun n m -> async {
            do! innerPrinter.ignored n m
            tcLog "testIgnored" [
              "flowId", n
              "name", n
              "message", m ] }
  
          failed = fun n m d -> async {
            do! innerPrinter.failed n m d
            tcLog "testFailed" [
              "flowId", n
              "name", n
              "message", m ]
            tcLog "testFinished" [
              "flowId", n
              "name", n
              "duration", d.TotalMilliseconds |> int |> string ] }
  
          exn = fun n e d -> async {
            do! innerPrinter.beforeEach n
            tcLog "testFailed" [
              "flowId", n
              "name", n
              "message", e.Message
              "details", e.StackTrace ]
            tcLog "testFinished" [
              "flowId", n
              "name", n
              "duration", d.TotalMilliseconds |> int |> string ] }
  
          summary = fun c s -> async {
  
negative.code:             TestPrinters.defaultPrinter.summary config summary
              |> Async.bind (fun () -> logSummaryWithLocation config.locate summary) }
      static member teamCityPrinter innerPrinter =
        let formatName (n:string) =
          n.Replace("/", ".").Replace(" ", "_")
  
        // https://confluence.jetbrains.com/display/TCD10/Build+Script+Interaction+with+TeamCity#BuildScriptInteractionwithTeamCity-Escapedvalues
        let escape (msg: string) =
          let replaced =
  