-- -*- M2-comint -*- {* hash: -1638556800 *}

i1 : R = QQ[a..d];

i2 : makeGB = (n) -> (g := gb((ideal vars R)^4); registerFinalizer(g, "gb("|n|")"););

i3 : for i from 1 to 10 do (makeGB i);

i4 : collectGarbage()
--finalization: [1]: gb(2)
--finalization: [3]: gb(4)
--finalization: [2]: gb(3)
--finalization: [6]: gb(7)
--finalization: [9]: gb(10)
--finalization: [7]: gb(8)
--finalization: [4]: gb(5)
--finalization: [5]: gb(6)
--finalization: [8]: gb(9)
--finalization: [0]: gb(1)

i5 :