module A (type(-), (-)) where