let format_of_c_int_type c_int : D.format = 
    let fname = Pretty_utils.sfprintf "%a_format" Ctypes.pp_int c_int in
      D.e_app0 fname