anchor.diff: -﻿open System
  +﻿(* ------------------------------------------------------------------------ *)
  +open System
  +open System.Reflection
   open System.Net
   open System.Net.Sockets
   
  
positive.code:     let upos  = ref 0 in
      let ticks = DateTime.Now.Ticks in
  
          while !sent < 64*1024*1024 do
              if udata.Length - !upos < block then begin
                  upos := 0
              end;
  
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
  