Macaulay2 Code