let fmt_warn_bitsize_over_32 = 
  format_of_string "bitsSize of %a > 32: not treated"