matrix := [ [5,18,0,0,0,0,0], [0,0,10,0,0,0,0], [17,7,14,0,0,0,0], [0,0,0,0,10,0,0], [0,0,0,0,0,0,10], [2,5,3,18,1,10,0], [0,0,0,10,0,0,0] ]*Z(19);