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