let
char_enum =
BatIO
.to_f_printer (enum_print
BatChar
.print)