let
rope_pset =
BatIO
.to_f_printer (
BatSet
.print
BatText
.print)