matrix := [ [6,0,0,0,0,0,0,0,0], [0,0,5,0,0,0,0,0,0], [1,4,1,0,0,0,0,0,0], [3,1,6,5,0,0,0,0,0], [3,1,6,0,5,0,0,0,0], [3,1,6,0,0,5,0,0,0], [3,1,6,0,0,0,5,0,0], [3,1,6,0,0,0,0,5,0], [3,1,6,0,0,0,0,0,5] ]*Z(7);