1 program nam_p;
   2 uses mtx09;
   3 var a: mtx; s:string;
   4 begin
   5   equ(a,'1,2,3');
   6   mwr(a);       // anonymous mtx
   7   nam(a,'A');   // give a name
   8   mwr(a);       // a is a named mtx
   9   s := nam(a);  // retrieve the name
  10   mwr(s)        // mwr(<string>) avatar
  11 end.
  12 {
  13 1   2   3
  14 
  15 A
  16 1   2   3
  17 
  18 A
  19 }