functor
(
M
:
Accessors3_with_comparator
)
->
sig
end