// The simple curve singularity An for n even and all non-free // indecomposable MCM modules LIB "conn.lib"; int n = 100; int p = n/2; ring s = 0, (x,y), dp; ideal i = x2+y^(n+1); qring a = std(i); int l; list MCM; for (l=1;l<=p;l++) { matrix M[2][2] = x, y^(n-l+1), y^l, -x; MCM[l] = M; } list sMCM = MCM; print("Curve An for n even:"); print("-------"); int i; for(i=1;i<=size(MCM);i++) { print("Module:"); print("-------"); print(MCM[i]); print("-------"); print("Obstructions:"); print("-------"); print(KSKernel(MCM[i])); print(LClass(MCM[i])); print("-------"); }