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