matrix := [ [0,0,14,0,0,0,0,0,0], [0,0,0,14,0,0,0,0,0], [14,9,0,14,0,0,0,0,0], [14,0,9,14,0,0,0,0,0], [0,0,0,0,0,0,14,0,0], [0,0,0,0,0,0,0,14,0], [9,0,0,9,9,0,9,0,0], [1,11,15,21,22,15,14,0,22], [9,20,19,2,11,11,20,3,0] ]*Z(23);