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