1 program add_ab;
   2 uses mtx09;
   3 var a, b: mtx;
   4 begin
   5   tra;
   6   equ(a,'10;20');
   7   equ(b,'1 2 3; 4 5 6');
   8   add(a,col(b,1));
   9   add(a,b); // a = a + sum(b,'c')
  10   add(b,a); // b = b + ( a * ones(b(1,:)) )
  11 end.
  12 {
  13 # equ [2,1]
  14 10
  15 20
  16 
  17 # equ [2,3]
  18 1   2   3
  19 4   5   6
  20 
  21 # add [2,1] [2,1]
  22 11
  23 24
  24 
  25 # add [2,1] [2,3]
  26 17
  27 39
  28 
  29 # add [2,3] [2,1]
  30 18   19   20
  31 43   44   45
  32 
  33 }