 LIB "curveInv.lib";
///////////////////////////////////////
// colength of derivations of curves //
///////////////////////////////////////
// Example 1:
ring R = 0,(x,y,z),ds;
ideal I = x2y4z,z3y2+xy2;
I = std(radical(I));
curveColengthDerivations(I);
==> 9
// Example 2:
ring S = 0,(x,y),ds;
ideal I = (x+y)*(x2y3);
curveColengthDerivations(I);
==> 4
// Example 3:
ideal J = (x2y3)*(x2+y2)*(xy);
curveColengthDerivations(J);
==> 15
