1 program stkcat;
   2 uses mtx09;
   3 var
   4  r,a,b: mtx;
   5 begin
   6   tra;
   7   equ(a,'1 2; 3 4');
   8   cat(r,a);        // r is empty so same as equ(r,a)
   9   cat(r,col(a,2)); // duplicate 2 column
  10   zer(b,lgn(r,1)); // b : row of 0 of same size as a row of r
  11   stk(r,b);        // append b to the bottom of r
  12 end.
  13 {
  14 # equ [2,2]
  15 1   2
  16 3   4
  17 
  18 # cat [2,3] [2,2] [2,1]
  19 1   2   2
  20 3   4   4
  21 
  22 # zer [1,3] [1,3]
  23 0   0   0
  24 
  25 # stk [3,3] [2,3] [1,3]
  26 1   2   2
  27 3   4   4
  28 0   0   0
  29 
  30 }