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