matrix := [
[21,9,0,0,0,0,0],
[0,0,14,0,0,0,0],
[16,3,2,0,0,0,0],
[0,0,0,0,14,0,0],
[0,0,0,0,0,0,14],
[15,10,6,17,18,14,11],
[0,0,0,14,0,0,0]
]*Z(23);