anchor.diff:      let projectDir = (fileInfo projectFile).Directory.FullName
       let mutable prefix = ""
       let diff = slashes projectDir - slashes currentDir
  -    for i in 1..diff do
  -        prefix <- prefix + "../"
  +    prefix <- prefix + (String.replicate diff "../")
  +
       MSBuildDebug "" "Rebuild" [ projectFile ] |> ignore
       MSBuild "" "_CopyWebApplication;_BuiltWebOutputGroupOutput" 
           [ "OutDir", prefix + outputPath
  
positive.code: match buildServer with
  | BuildServer.AppVeyor ->
      MSBuildLoggers <- @"""C:\Program Files\AppVeyor\BuildAgent\Appveyor.MSBuildLogger.dll""" :: MSBuildLoggers
  | BuildServer.TeamCity  -> MSBuildLoggers <- sprintf "%s,\"%s\"" TeamCityLoggerName pathToLogger :: MSBuildLoggers
  | _ -> ()
  
  /// Runs a MSBuild project
  
negative.code:         | Normal -> "n"
          | Detailed -> "d"
          | Diagnostic -> "diag"
  
      let serializeLogger fl =    
          let logParams param =
              match param with
              | Append -> "Append"
  