set echo 1
ring r

13
x[1]-x[13]


mat m
4
4
0
x[4]
x[8]
x[12]
x[1]
x[5]
x[9]
x[13]
x[2]
x[6]
x[10]
0
x[3]
x[7]
x[11]
0
type m
mat n
4
4
0
x[3]
x[2]
x[1]
x[5]
x[4]
x[7]
x[6]
x[10]
x[9]
x[8]
x[11]
0
0
x[13]
x[12]
type n
mult m n mn
mult n m nm
subtract nm mn f
monitor a2
type f
endmon
exit
