-- -*- M2-comint -*- hash: 16644796534671846010

i1 : kk=ZZ/2; S=kk[x_0..x_3]

o2 = S

o2 : PolynomialRing

i3 : setRandomSeed "some singular and some smooth curves";
 -- setting random seed to 1644814534404491274313411285186041988099567563905780374824086062516559438

i4 : elapsedTime tally apply(10,i-> (
             c=minors(2,random(S^2,S^{3:-2}));
             c=sub(c,x_0=>1);
             R=kk[support c];c=sub(c,R);
             heuristicSmoothness c))
 -- 3.2469s elapsed

o4 = Tally{false => 6}
           true => 4

o4 : Tally

i5 : 
