matrix := [
[7,10,0,10,10,12,5,11,11,7,4,5,4,0],
[8,8,4,11,10,11,10,2,6,5,11,2,7,9],
[12,11,12,3,8,8,0,7,11,6,3,4,0,5],
[11,6,0,4,8,7,9,2,2,11,12,4,0,4],
[7,4,1,0,7,4,7,1,5,10,7,2,4,5],
[1,10,3,0,8,7,7,4,1,11,7,12,2,1],
[10,9,4,12,8,7,7,7,9,9,3,3,11,0],
[5,4,6,10,10,7,3,2,11,3,3,7,0,10],
[4,2,7,11,1,9,3,0,1,12,6,9,7,11],
[8,9,10,5,1,10,1,11,8,11,8,4,1,9],
[7,3,10,7,3,9,9,1,2,3,11,8,3,11],
[5,11,12,9,0,10,12,12,10,5,5,7,2,4],
[5,7,11,6,10,1,9,9,11,12,3,9,11,6],
[3,8,1,5,10,8,2,4,10,0,7,12,4,2]
]*Z(13);