let int_enum = BatIO.to_f_printer (enum_print BatInt.print)