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