anchor.diff:  do Logger.ParseArgs([|"-con"|])
   do BufferListStream<byte>.InitSharedPool()
   
  +type BufferQueue = BlockingCollection<byte[]>
  +
   type ConcreteNetwork() = 
       inherit Network()
   
  
positive.code:                 readFrom 0
                  readQueue.Add bytes
          }
          |> Async.Start
  
      let sendResponses(socket: Socket) = 
          let writer = new BinaryWriter(new NetworkStream(socket))
  
negative.code:                 writer.Write(response)
                  Logger.LogF(LogLevel.Info, fun _ -> sprintf "%d bytes written." response.Length)
          }
  
      interface IConn with 
  
  