functor (F : INTERNAL) -> sig  end