MODULE TClass;
TYPE
  CLASS Base;
    n : INTEGER;
    PROCEDURE Set(v : INTEGER);
  END Base;
  CLASS Sub (Base);
    PROCEDURE Get() : INTEGER;
  END Sub;
CLASS IMPLEMENTATION Sub;
  PROCEDURE Get() : INTEGER;
  BEGIN
    RETURN 0
  END Get;
BEGIN
END Sub;
BEGIN
END TClass.