qflllgram(matid(2)*1.)
m=[219902325555200,60779507942430,113687426768697,93478400051083;219902325555200 ,60779507942430,61044718855924,60943417301157;214748364800,155393376570,17984250 9148,115833849065;214748364800,155393376570,134851934330,188630128295]; qflll(m, 1)
qflll(m,3)
M=[x, x^3 - 852*x^2 - 833561*x; x^3 + 1053355*x^2, x^5 + 1052503*x^4 - 898292021*x^3 - 878035647155*x^2 + 1];

test()=
{
for(i=1,#v,
  for (j=1,#f,
    print(iferr(f[j](v[i]),E,E));
  )
);
}
v=[[;],Mat(1),Mat(0),Mat([1,2]), [x, x+1; x^2, x^2+x], M];
f=[qflll,x->qflll(x,1),x->qflll(x,2),x->qflll(x,4),x->qflll(x,5),x->qflll(x,8)];
test();
v=vector(#v,i,v[i]~*v[i]);
f=[qflllgram,x->qflllgram(x,1),x->qflllgram(x,4),x->qflllgram(x,5)];
test();

\\ ERRORS
qflllgram([1,2,3;4,5,6])
qfminim([1,2,3;4,5,6],,,2)
