functor (M : Creators1) -> sig  end