let rope_enum = BatIO.to_f_printer (enum_print BatText.print)