let pp_title fmt x = Format.fprintf fmt "Initialisation of a range of type %a in a array" F.Cobject.pp_title x