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