sig
  type 'a t =
    'a Bin_prot.Type_class.writer = {
    size : 'a Size.sizer;
    write : 'a Write_ml.writer;
    unsafe_write : 'a Unsafe_write_c.writer;
  }
  val to_string : 'a Core_bin_prot.Writer.t -> 'a -> string
end