anchor.diff:          member this.skip () = ()
   
   type TeamCityReporter() =
  +
  +    let flowId = System.Guid.NewGuid().ToString()
  +
       let consoleReporter : IReporter = new ConsoleReporter() :> IReporter
       let tcFriendlyMessage (message : string) = 
           let message = message.Replace("|", "||")
  
positive.code:     
          member this.suggestSelectors selector suggestions = consoleReporter.suggestSelectors selector suggestions
      
          member this.testStart id = consoleReporter.describe (String.Format("##teamcity[testStarted name='{0}']", (tcFriendlyMessage id)))
      
          member this.testEnd id = consoleReporter.describe (String.Format("##teamcity[testFinished name='{0}']", (tcFriendlyMessage id)))
  
          member this.quit () = ()
          
  
negative.code:         let message = message.Replace("]", "|]")
          message
  
      let teamcityReport text =
          let temcityReport = sprintf "##teamcity[%s flowId='%s']" text flowId
          consoleReporter.describe temcityReport
  
      interface IReporter with               
          member this.pass () = consoleReporter.pass ()
      
  