module Exchanger: Exchanger.S with type ('a,'b) reagent = ('a,'b) R.t
Exchanger.S
with type ('a,'b) reagent = ('a,'b) R.t