type writer = {
  buf: bytes ref;
  mutable bit_pos: int;
}

let test w =
  Bytes.length !(w.buf)