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