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