let
string_enum = to_format (enum_print
BatString
.print)