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