-- -*- M2-comint -*- hash: 7326365697530955033

i1 : kk=ZZ/101;

i2 : setRandomSeed 0
 -- setting random seed to 0

o2 = 0

i3 : g=2;

i4 : (S,qq,R,u, M1,M2, Mu1,Mu2) = randomNicePencil(kk,g);

i5 : M=cliffordModule (Mu1, Mu2, R);

i6 : ru=randomIsotropicSubspace(M,S)

o6 = | y_1+28z_1+48z_2 y_0+16z_1-21z_2 x_1-18z_1+25z_2 x_0-15z_2 |

             1      4
o6 : Matrix S  <-- S

i7 : assert (betti ru == betti u)

i8 : 
