anchor.diff:                  StartSize = factAttribute.GetNamedArgument("StartSize")
                   EndSize = factAttribute.GetNamedArgument("EndSize")
                   QuietOnSuccess = factAttribute.GetNamedArgument("QuietOnSuccess")
  -                Every = if factAttribute.GetNamedArgument("Verbose") then Config.Verbose.Every else Config.Quick.Every
  -                EveryShrink = if factAttribute.GetNamedArgument("Verbose") then Config.Verbose.EveryShrink else Config.Quick.EveryShrink
  +                Every = if factAttribute.GetNamedArgument("Verbose") then 
  +                            fun n args -> output.WriteLine (Config.Verbose.Every n args); ""
  +                        else 
  +                            Config.Quick.Every
  +                EveryShrink = if factAttribute.GetNamedArgument("Verbose") then 
  +                                fun args -> output.WriteLine (Config.Verbose.EveryShrink args); ""
  +                                else 
  +                                    Config.Quick.EveryShrink
                   Arbitrary = arbitraries
                   Runner = new XunitRunner()
               }
  
positive.code:     interface IRunner with
          override __.OnStartFixture _ = ()
          override __.OnArguments (ntest,args, every) =
              printf "%s" (every ntest args)
          override __.OnShrink(args, everyShrink) =
              printf "%s" (everyShrink args)
          override __.OnFinished(_ ,testResult) =
              result <- Some testResult
  
  
negative.code:                     match xunitRunner.Result with
                            | TestResult.True _ ->
                              let output = Runner.onFinishedToString "" xunitRunner.Result
                              new TestPassed(test, timer.Total, outputHelper.Output + output) :> TestResultMessage
                            | TestResult.Exhausted _ ->
                              summary.Failed <- summary.Failed + 1
                              upcast new TestFailed(test, timer.Total, outputHelper.Output, new PropertyFailedException(xunitRunner.Result))
                            | TestResult.False (testdata, originalArgs, shrunkArgs, Outcome.Exception e, seed)  ->
                              summary.Failed <- summary.Failed + 1
                              let message = sprintf "%s%s" Environment.NewLine (Runner.onFailureToString "" testdata originalArgs shrunkArgs seed)
                              upcast new TestFailed(test, timer.Total, outputHelper.Output, new PropertyFailedException(message, e))
                            | TestResult.False _ ->
                              summary.Failed <- summary.Failed + 1
                              upcast new TestFailed(test, timer.Total, outputHelper.Output, new PropertyFailedException(xunitRunner.Result))
                  with
                      | ex ->
                        summary.Failed <- summary.Failed + 1
                        upcast new TestFailed(test, timer.Total, outputHelper.Output + "Exception during test:", ex)
  
             
              messageBus.QueueMessage(result) |> ignore
              summary.Time <- summary.Time + result.ExecutionTime
              if not (messageBus.QueueMessage(new TestFinished(test, summary.Time, result.Output))) then
  