sig
  type t = {
    cmd : Http.cmd;
    headers : Http.header list;
    mutable recv : Bitstring.bitstring -> unit;
    top : Http.TRXtop.t;
  }
  val tx : Http.TRX.t -> Bitstring.bitstring -> unit
  val rx : Http.TRX.t -> Bitstring.bitstring -> unit
  val make : ?cmd:Http.cmd -> Http.header list -> Tools.trx
end