sig   val ( ?| ) :     ('a, Buffer.t, unit, CCUnix.call_result) Pervasives.format4 -> 'a   val ( ?|& ) :     ('a, Buffer.t, unit, CCUnix.async_call_result) Pervasives.format4 -> 'a end