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