Synopsis:
Code:
-- ../../../Macaulay2/m2/modules2.m2:397-404 degree Module := M -> ( hf := poincare M; T := (ring hf)_0; if hf == 0 then 0 else ( while substitute(hf,{T=>1}) == 0 do hf = hf // (1-T); -- while hf % (1 - T) == 0 do hf = hf // (1-T); substitute(hf,{T=>1})))