let
char_enum = to_format (enum_print
BatChar
.print)