let string_enum = BatIO.to_f_printer (enum_print BatString.print)