let string_set = BatIO.to_f_printer (StringSet.print BatString.print)