module A (type(+), (+)) where