-- -*- M2-comint -*- hash: 8385840267942877585

i1 : beta = makeGWClass matrix(QQ, {{1,4,7},{4,3,-1},{7,-1,5}});

i2 : getIntegralDiscriminant beta

o2 = -269

i3 : getDiagonalClass beta

o3 = | 1 0   0    |
     | 0 -13 0    |
     | 0 0   3497 |

o3 : GrothendieckWittClass

i4 : 
