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