Use R ::= QQ[x,y,z];
  X := 5;  -- a variable called "X" in the working memory
  MEMORY.X := 7; -- a global variable
  X;
5
-------------------------------
  MEMORY.X;
7
-------------------------------
  Memory();  -- the working memory
["It", "X"]
-------------------------------
  GlobalMemory(); -- the global memory
["DEV", "ENV", "ERR", "PKG", "X"]
-------------------------------
  Define Test()
    PrintLn MEMORY.X;
    MEMORY.X := "a new value";
    PrintLn X;
  EndDefine;
  -- MEMORY.X is accessible from within a function
  -- X is not accessible within a function (thus we get an error)
  Test();
7

-------------------------------
ERROR: Undefined variable X
CONTEXT: PrintLn(X)
-------------------------------
  MEMORY.X;  -- the contents of the global memory can be changed from
             -- within a function
a new value
-------------------------------
  Fields(MEMORY.ENV);  -- a list of all defined rings
["QQ", "QQt", "R", "ZZ"]
-------------------------------