(*
open Rope

val ( #% ) : ((impl -> impl) -> 'a -> 'b) -> 'a -> 'b
*)