functor (M : Accessors3) -> sig  end