matrix := [
[0,0,7,0],
[0,0,0,7],
[6,8,1,5],
[6,1,7,6]
]*Z(13);