let
print_rope fmt t =
Format
.fprintf fmt
"r%S"
(
BatRope
.to_string t)