1 program main;
   2 uses mtx09;
   3 var
   4   a: mtx;
   5   x: double;
   6 begin
   7   tra;
   8   equ(a,'1 2 3; 4 5 6');
   9   x := prd(lgn(a,1),trp(lgn(a,2))); // any combination of row and column
  10   x := prd(trp(lgn(a,2)),lgn(a,1)); // vectors is accepted if they have
  11   x := prd(lgn(a,1),lgn(a,2));      // the same number of elements
  12   x := prd(col(a,2),col(a,3))
  13 end.
  14 {
  15 # equ [2,3]
  16 1   2   3
  17 4   5   6
  18 
  19 # prd [1,1] [1,3] [3,1]
  20 32
  21 
  22 # prd [1,1] [1,3] [3,1]
  23 32
  24 
  25 # prd [1,1] [1,3] [3,1]
  26 32
  27 
  28 # prd [1,1] [1,2] [2,1]
  29 36
  30 
  31 }