matrix := [ [0,0,7,0,0,0,0,0,0,0,0], [0,0,0,7,0,0,0,0,0,0,0], [7,1,7,7,0,0,0,0,0,0,0], [0,6,6,6,0,0,0,0,0,0,0], [0,0,0,0,0,0,7,0,0,0,0], [11,10,2,3,7,7,6,0,0,0,0], [0,0,0,0,0,0,0,0,7,0,0], [0,0,0,0,0,0,0,0,0,7,0], [1,1,12,12,7,0,6,0,7,0,0], [10,8,12,6,1,0,0,7,12,0,0], [6,10,11,11,11,11,0,0,0,0,6] ]*Z(13);