matrix := [
[2,0,0,0,0,0,0],
[0,0,1,0,0,0,0],
[0,1,0,0,0,0,0],
[0,0,0,0,1,0,0],
[0,0,0,1,0,0,0],
[0,0,0,0,0,0,1],
[0,0,0,0,0,1,0]
]*Z(3);