/* Load matrices */
a: matrix(
 [5, 1, 2, 7], 
 [3, 0, 0, 2], 
 [1, 3, 4, 5], 
 [2, 0, 0, 3]
);

b: matrix(
 [5, 1, 2, 7], 
 [3, 1, 0, 2], 
 [4, 2, 4, 5], 
 [6, 2, 0, 4]
);

/* Operations */
_add: a+b;
_sub: a-b;
_mul: a.b;
_scale:a*10;
_transpose: transpose(a);
_trace: a[1][1] + a[2][2] + a[3][3] + a[4][4];
_determinanta: determinant(a);
_determinantb: determinant(b);
_inverse: float(invert(a));

v: [2, -1, 4, 0];
_result4: a.v;
_result3: a.[v[1], v[2], v[3], 1];