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