let
int_enum = to_format (enum_print
BatInt
.print)