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