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