anchor.diff:      let upos  = ref 0 in
       let ticks = DateTime.Now.Ticks in
   
  -        while !sent < 64*1024*1024 do
  +        while !sent < 128*1024*1024 do
               if udata.Length - !upos < block then begin
                   upos := 0
               end;
  
positive.code: ﻿open System
  open System.Net
  open System.Net.Sockets
  
  
negative.code: (* ------------------------------------------------------------------------ *)
  let client () =
      let cs = Environment.GetEnvironmentVariable("CIPHERSUITE") in
      let cs = Map.find cs cs_map in
  
      let hsdone  = ref 0 in
      let hsticks = ref (int64 (0)) in
  