let string_enum = to_format (enum_print BatString.print)