let char_enum = to_format (enum_print BatChar.print)