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