MODULE; REVEAL T = Public BRANDED OBJECT OVERRIDES init := Init; END; PROCEDURE Starter Init (self: T; name, ext: TEXT; key: CHAR): T = BEGIN self.name := name; self.ext := ext; self.key := key; RETURN self; END Init; PROCEDUREEqual (a,b:T):BOOLEAN=BEGIN RETURN a=b;END Equal; BEGIN END Starter.