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