let char_pset = BatIO.to_f_printer (BatSet.print BatChar.print)