anchor.diff:              let port = int <| tokens.[1]
               new IPEndPoint(ipAddr, port)
   
  -        static let getPickler (p : FsPickler option) =
  -            match p with
  -            | None -> new FsPickler ()
  -            | Some p -> p
  -
           static member Create<'T>(behaviour : MailboxProcessor<'T> -> Async<unit>, ipEndPoint : IPEndPoint, ?pickler : FsPickler) =
               let mailbox = MailboxProcessor.Start behaviour
               new TcpActor<'T>(mailbox, ipEndPoint, ?pickler = pickler)
  
positive.code:     // existentially pack reply channels
  
      type private IReplyChannelContainer<'T> =
          abstract PostWithReply : MailboxProcessor<'T> -> obj
  
      and private ReplyChannelContainer<'T, 'R>(msgB : AsyncReplyChannel<'R> -> 'T) =
          interface IReplyChannelContainer<'T> with
              member __.PostWithReply (mb : MailboxProcessor<'T>) =
                  mb.PostAndReply msgB :> obj
  
      type private ServerRequest<'T> =
          | Post of 'T
  
negative.code: 
      type AsyncBuilder with
          member __.Bind(f : Task<'T>, g : 'T -> Async<'S>) = __.Bind(Async.AwaitTask f, g)
          member __.Bind(f : Task, g : unit -> Async<'S>) = __.Bind(f.ContinueWith ignore, g)
  
      type Stream with
          member s.AsyncWriteBytes (bytes : byte []) =
  