matrix := [ [0,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,0,0,7,0,0,0,0,0,0,0], [0,0,0,0,0,7,0,0,0,0,0,0], [7,6,6,0,6,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,7,0,0,0], [0,0,0,0,0,0,0,0,0,7,0,0], [0,0,0,0,0,0,0,0,0,0,7,0], [0,0,0,0,0,0,0,0,0,0,0,7], [3,0,10,2,2,10,7,4,4,4,5,0], [0,0,12,11,1,7,8,6,10,10,2,6], [0,0,0,6,0,6,0,0,6,0,0,6] ]*Z(13);