let string_pset = BatIO.to_f_printer (BatSet.print BatString.print)