projdim

Hello,

I'm trying to do the following calculus with singular:

>ring r=0,(x,y,z,w,t),ds;
> proc projdim(module M)
{
list l=mres(M,0);
int i;
while(i<size(l))
{
i++;
if(size(l[i])==0){return(i-1);}
}
}
> ideal i=-xw+yt+yz4+x14,zw+wt+y13z-x13t+x14y,zt+t2+z5+z4t+xy7+x15,-x+y,zwt-zt2+wt2-t3+5z5w-6z5t+9z4wt-10z4t2+4z3wt2-4z3t3-5z9+7x2y6w+xy7w-8xy7t-9z8t-4z7t2-12xy7z4+4y8z4-4xy7z3t+4y8z3t-x13zt-x13t2+15x15w-x15t-14x14yt-5x13z5-9x13z4t-4x13z3t2-5x15z4-10x14yz4-4x15z3t+4x14yz3t-7x15y6-x14y7-15x28,-zwt-wt2-5z5w-9z4wt-4z3wt2-xy7w+7xy6w2-7y7wt-4y8z4-39y7z4w-4y8z3t-32y7z3wt+x13zt+x13t2+13x12zt2+13x12t3-15x15w+14x14yt+14x14wt-14x13yt2-32y15z3+5x13z5+9x13z4t+78x12z5t+4x13z3t2+130x12z4t2+52x12z3t3+10x14yz4+10x14z4w-4x14yz3t-84x13yz4t-4x14z3wt-56x13yz3t2+x14y7+65x12z9-105x14y6w+111x13y7t+117x12z8t+52x12z7t2-70x13yz8-56x13yz7t+195x13y7z4+84x13y7z3t-92x14y8z3+15x227t+55x27z4+56x27z3t-60x28yz3+98x27y6,xw+w2-wt+4yz4-z4w+4yz3t+32y8z3-x14-15x13w+x13t+x13z4-52x12yz4-52x12yz3t+4x14yz3+56x13y2z3+14x26,xt+wt-t2+5xz4+5z4w+4xz3t-6z4t+4z3wt-4z3t2-5z8-4z7t+28xy7z3+4y8z3-14x13t-70x13z4-56x13z3t+60x14yz3,-zt-t2-5z5-9z4t-4z3t2+7xy6w+y7w-8y7t-40y7z4-32y7z3t+13x12zt+13x12t2+15x14w-x14t-14x13yt+65x12z5+117x12z4t+52x12z3t2-5x14z4-70x13yz4-4x14z3t-56x13yz3t-7x14y6-x13y7-15x27
> projdim(i);

But the software closes sunddenly while the computer still has available memory.

Do you know what could be wrong?

Thank you,

Bruna