let int_enum = to_format (enum_print BatInt.print)