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