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: (* ------------------------------------------------------------------------ *)
  let client () =
      let cs = Environment.GetEnvironmentVariable("CIPHERSUITE") in
      let cs = Map.find cs ciphers in
  
      let hsdone  = ref 0 in
      let hsticks = ref (int64 (0)) in
  
negative.code:         let tlssock = new TlsProtocolHandler(socket.GetStream ())
  
          tlssock.Connect (new MyTlsClient (cs));
          tlssock.Stream.Write([| 0uy |], 0, 1);
  
          if i <> 0 then begin
              hsdone  := !hsdone  + 1;
  