let
char_pset = to_format (
BatSet
.print
BatChar
.print)