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