MODULE Starter;
REVEAL
  T = Public BRANDED OBJECT
  OVERRIDES
    init := Init;
  END;

PROCEDURE Init(self: T; name, ext: TEXT; key: CHAR): T =
  BEGIN
    self.name := name;
    self.ext := ext;
    self.key := key;
    RETURN self;
  END Init;

PROCEDURE Equal(a,b:T):BOOLEAN=BEGIN RETURN a=b;END Equal;
BEGIN
END Starter.