MODULE Person;

REVEAL T = BRANDED "Person" REF RECORD
  name:TEXT := "";
  age:CARDINAL;
END;

PROCEDURE Create(name:TEXT := "";
                 age:CARDINAL):T =
  BEGIN
    RETURN NEW(T,name := name,age := age)
  END Create;

PROCEDURE GetName(p:T):TEXT =
  BEGIN
    RETURN p.name
  END GetName;

PROCEDURE GetAge(p:T):CARDINAL =
  BEGIN
    RETURN p.age
  END GetAge;

BEGIN

END Person.