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