M := [];
G := [];

M1 := Matrix(IntegerRing(), 10, 10, [
0, 1, 1, 1, 1, 1, 0, 0, 0, 0,
1, 0, 1, 1, 1, 1, 0, 0, 0, 0,
1, 1, 0, 0, 1, 0, 1, 0, 0, 1,
1, 1, 0, 0, 0, 1, 0, 1, 1, 0,
1, 1, 1, 0, 0, 0, 1, 0, 0, 1,
1, 1, 0, 1, 0, 0, 0, 1, 1, 0,
0, 0, 1, 0, 1, 0, 0, 1, 1, 1,
0, 0, 0, 1, 0, 1, 1, 0, 1, 1,
0, 0, 0, 1, 0, 1, 1, 1, 0, 1,
0, 0, 1, 0, 1, 0, 1, 1, 1, 0
]);
M[1] := M1;
G[1] := Graph<10|M1>;