let
char_set = to_format (
BatSet
.
CharSet
.print
BatChar
.print)