let text_set = BatIO.to_f_printer (TextSet.print BatText.print)