let pp_title fmt x = Format.fprintf fmt "C type '%a'" Ctypes.pp_object x